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-ASCIZ /ORIVE NUM=/ 
-ASCIZ /MODE=/ 


eWSCIZ 4 / 
ASCIZ 
-ASCIZ 
WOOD:  .ASCIZ 
-ASCIZ 
-ASCIZ 


OFSETQ: .ASCIZ: 
oisess PSD@: .ASCIZ /PRESERVE SOFTWARE BAD SECTOR FILES?(TYPE Y OR N)(CR)/ 


TRKLIM: .ASCIZ 


SPACEe: 
PROGID: .ASCII 


SOBSFP: 


CYLLIM: 


tt 


HELPQ 
ORV@: 
SECTQ: 


pea eed eae - ee 
ba Bee z 8 z 


BESO ARID. a 
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ZENTER OCTAL ADDRESS TO BE FLAGED BAD IN FORMAT CCC,T,SS/<15><12> 


ZENTER ADDRESS OR (CR) TO TERMINATE/<15><12> 


/NOT PRESERVED/<15>< 12> 
INVALID ENTRY/<15><12> 

7INVD CYLINDER NUMBER /<15><12> 
ZINVD TRACK NUMBER /<15><12> 


ASCIZ 

: -ASCIZ 
-ASCIZ 
ASCIZ 


INVOCY: 
INVDTK: 


& 
3 
g 
~ 
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2 
8 
et 
g 
a 
é 
N 
i 
g 
Rae 


NOSRSFaN 


1120 NPRSVD: .ASCIZ 


e 


aati INVOSE: .ASCIZ /INVD STARTING OR ENDING PACK ADDRESS/<15><12> 


04 


047111 
os0107 
L 
if 
1 
0104 
ate 


Ba ILLSEC: .ASCIZ /INVD SECTOR NUMBER/<15><12> 


051117 
042502 


UBSFMT: .ASCIZ 
NEXTQ: . 
046101 BADENT: 


—— poste Si 
Fa uno or, wun 
ii sided = 2a a 


et ie 
er RARNRRNBNG Soe Su eeeee oe 


an iam bam bee ieee) oe 
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PROGRAM 


1 27(1006) 
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Ss 60Clk 
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- ia 
yh 
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Zou 
Be 
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Zz 


-ASCIZ /INVD MODE SELECTION (MAX OF 4)7<15><12> 


INVOMD: 


/PLEASE SET WRITE LOCK FOR VERIFY OPERATIONS/<15><12> 


INVDOF: .ASCIZ /INVD OFFSET VALUE/<15><12> 


SWLREQ: .ASCIZ 


Sram Es ee 
2 le See 
33 


/PLEASE RESET WRITE LOCK FOR FORMAT OPERATIONS/<15>< 12> 


RWLREQ@: .ASCIZ 


uns 
MmO-— 


Wi secoea gee aaa 


—t\ J —N Tk. “ 
Seite itis oh RD ae 


SSAA 


cubenheubenton bond 
rrITITTT 


3 888 
FESS SNA 


La] 
Lc] 
> 


/CANNOT READ BAD SECTOR TRACK/<15><12> 


: .ASCIZ 


TOMSOF: .ASCIZ /SOFTWARE BAD SECTOR FILE NOT FORMATTED PROPERLY OR/<15><12> 


DMSUF: .ASCIZ /FILE IS TOO LARGE FOR THE PROGRAM ( >100 ENTRIES)7<15><12> 


CONREG: .ASCIZ /PRESS CONTINUE WHEN READY/<15><12> 


i 


Us pe UaA NS Neen on 
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Posueueeporrrrtsreesysueuiueees 
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/FACTORY BAD SECTOR FILE NOT FORMATTED PROPERLY OR/<15><12> 
/NO DATA CHECK ON SECTOR THAT WILL NOT PASS WRITE CHECK/<15><12> 


/CARTRIDGE SERIAL NUMBER ##4%% / 
/DATA CHECK ERROR IN WRITE. IMPOSSIBLE!!!7<15><12> 


ALNPAC: .ASCII /CARTRIDGE MOUNTED IS AN ALIGNMENT CARTRIDGE. /<15>< 12> 
-ASCIZ /FORMAT IS ABORTED/<15><12>< 12> 


CORABL: .ASCIZ /ECC CORRECTABLE/<15><12> 


TOMFAC: .ASCIZ 
SERNUM: .ASCIZ 
IMPERe: .ASCIZ 
IMPERR: .ASCIZ 


Pars Te Gee tal 2 
oe 
Eu ari aes 
Le Pe ESC SSS AC See Rt 


KKK ARERAAAARERRRRRA ARR AC tattoos Rd a dd dt Bd Og Od Od 9 oe 
2909090900000000000000000000009000000000000000000000000000000 


] BRECERRER FRR ERR RRR SUREMMS BESANT ae 2 NARS ENTERS 


OF Oh Ob hd Ok a hd Od dG ad Od OH ad dd Od a dd GHG dG Rd Gd dd ad dd dd dd ad kd hd Od a 
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VERIFY OPERATION COMPLETE ##/<15><12><12> 


JO3 


EE Bs-AuG~76 DOsOd) © (106) Bane SPECHEEE RESERVED LOCATIONS 


(12>/ERROR WRITING SOFTWARE DETECTED BAD SECTOR TABLES. /<15><12> 


(12>7#% WRITE OPERATION COMPLETE ##7¢15><12><1l2> 


(12)>/BAD SECTOR TABLE WRITTEN. /<15><12> 
(12>/THE BAD SECTORS FOR THIS CARTRIDGE IN / 


“SECTOR IN ERROR =/ 


(12) /%# 
¢15><12>/BAD SECTORS IN SOFTWARE TABLE: 7<15><12> 


-ASCIZ / SECTOR FORMAT ARE: 7<15>< 12> 


: .WSCIZ 


: .ASCIZ 


FBSLAB: .ASCIZ <12)/BAD SECTORS IN FACTORY TABLE: 7<15><12> 


SBSLAB: .ASCIZ 


SECINE: .ASCIZ 


— — sah ace Waa be s bate wheel : 


mare 
Samay seaprrar enon sonescrugyra er 


; 
! 
ADD DOOD, DOUODODOUDOOUOOOOOUOOUOUOOUCOOO0O | 


PRGRS1 
PRGRS2: .ASCIZ 
BSWERR: .ASCIZ 





BSHEAD: .ASCIZ 
BSTAIL: 


“a 
cw 
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ata 








KO3 


/NONE/<15><12> 
/20/ 
/22/ 
/ CYLNDR TRACK SECTOR/<15><12> 


/ / 
, 
(15><12>7 = TOTAL NUMBER OF BAD SECTORS/<15><12> 


START: 

-SBTTL INITIALIZE THE COMMON TAGS 

;;CLEAR THE COMMON TS (S$CMTAG) AREA 
SSCNTAG, 


R6 ;;FIRST LOCATION TO BE CLEARED 


(R6)+ > 3;CLEAR MEMORY LOCATION 


' ssLOOP BACK 


; IF NO 
ALIZE A rea estos ;3SETUP THE STACK POINTER - 


Cc steve 7 FOR ERROR ROUTINE 
TRAP_VECTOR FOR TRAP CALLS 


TORPURVES steve 2 FAILURE VECTOR 


SCAPE ON ERROR ADDRESS 


#340 ora ssCEVEL 7 


i lt ise Fr T FOUND on TF 1s 


REGISTER. 


BaVEC, rep) 50 AVE ERROR VECTOR 
alee DHERRVEC 3;SET UP ERROR VECTOR 
SDDISP DISPLAY !ANOUA HAROMARE DISPLAY RecISTER 
ts | si TRY 10 AE RG TIMEOUT TRAP OCCURRED 
*:AND THE HARDWARE SWR IS NOT = -1 
ess ::BRANCH IF NO TIMEOUT 
#655, (SP) :!SET UP FOR TRAP RETURN 
SSWREG, SHR sPOINT TO SOFTWARE SWR 


BDLSPREGD DISPLAY’ 
SP)+,aWERRVEC ;;RESTORE ERROR VECTOR 


PC, STKINT sINIT KEYBOARD 
RKVEC, RI *GET ADDRESS OF VECTOR STORAGE 
#I.INTR,(R1)+ SET IT TO INTERRUPT HNDLR 


I 
7, (RL) ;SET INTERRUPT HANDLER PR? 
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LO3 


O3-NOV-76 16:15 PAGE 38 
INITIALIZE THE COMMON TAGS 


MOV 0,-(SP) ;-PUT NEW PS ON STACK 
MOV #67$, -(SP) :;PUT NEW PC ON STACK 
we RTI ::POP NEW PC AND PS 
" «TYPE ~— , PROGID sTYPE IDENTIFICATION 
TYPE  ,HELPQ > TYPE HELP QUESTION 


IN GET ANSWER T 
fot (SP)+,R1 eet ADDRESS be EnGWER 
TSTB = (R211) ;TEST FIRST CHAR 


STPARM 
»HELPFL ; TYPE HELP FILE 


sieTTL PARAMETER REQUEST & CHECK ROUTINE 
SENTRY: MRUTOMAnIC at erat OF BROGRAM it: if 

;HEXIT: GO TO MODE DECODE. 

PeTHIS ROUT T TER_IN TURN AND CALLS 

THE CETANS SUGROUTINE TO HANDLE THE ANeWERS AnD STORE 

tTHEM. IT THEN CHECKS THE PARAMETERS FOR LE AND 
SEVALIOITY AND, TF ANY ERROR 


GALITY 
AN SF TS T 
*#PARAMETERS N STARTING: RN THE PARARE ‘i ERROR 


: WITH THE PARAME . 
3) JHHGHHBIB HHH HGH HEHE UHHH HHH HEB H HEHEHE EHH HEHE 


STPARM: MOV SINITTP,Re ;STARTING ADDRESS OF DEF. PARAM 
MOV ene ;STARTING ADD OF ACTIVE PARAMS 


TYPE *TYPE DRIVE TYPE QUESTION 
JSR RY, GETANS 
TYPE 0 ;TYPE DRIVE QUESTION 
JSR RY, GETANS °G0 PARAM 
TYPE SECT ?TYPE SECTOR/TRACK QUESTION 
ISR RY. GETANS GO GET PARAM 
PARAM3: TYPE MODE *TYPE MODE QUES 
JSR R4, GETANS °GO GET PARAM 
TYPE WOE 
JSR RY, GETANS 
TYPE WOOD 
PARAMS Tere Re <n TYPE TRACK LIMITS QUESTION 
JSR Ay oe GO GET PARAM 
TYPE CYLLIM >TYPE CYLINDER LIMITS QUESTION 
JSR R4, GETANS GO GET PARAM 
PARMG: TYPE OFSETO “TYPE OFFSET QUESTION 
JSR RY, GETANS 
DONEPR: cH PINUS, #7 sTEST IF DRIVE TYPE IS 
CMP TPINUS, #6 IF NOT TYPE ERROR 
BEQ 4§ 
BR IVD 


TP 
4S: CMP ECINUS,SCINUS ;COMP START & END CYL 


BLT RSTADD ' sNG-GET PARAM AGAIN 
CMP ETINUS,STINUS ;COMP pet & END TRK 
on RSTADD ;NG-GET PARAM AGAIN 
MP ECINUS, #632 ;TEST IF VALID CYL 
BGT IVDCYL TOO 


: IG-BRANCH 
CLRB =s TYPFMT ‘CLEAR TYPE-FORMAT SWITCH 
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0026S3 
000004 


03-NOV-76 


PARAMETER REQUES 


38: 


RSTAND: 
IVDCYL: 
IVOTRK: 
SETRS: 


IVDDRV: 
IVDTP: 
IVDMOD: 
IVDOF : 


GETOUT: 


3$: 





BC eae Ck ROUTINE 
TPINUS, #6 ;TEST IF TRACK PARAMETERS ARE 
2s “VALID FOR THE DRIVE TYPE 
#8. CDT, TYPFMT 
ETINUS, #4 SPCCIFIeD. 
TVDTRK 
ETINUS, #2 
IVDTRK 
INUS, #7 TEST IF VALID | DRIVE 
VDDRV T00 BI 
MDINUS, #4 ; TEST IF VALID MHODE 
OF TNS, #160 it oe PNVArTD OFFSET. 
POBDE LRROR 
GETOUT eso” TO EXIT 
INVD TYPE ERROR MESSAGE 
SETRS 
IN sTYPE ERROR 
SETR 
INVDTK TYPE ERROR 
kINITST,Re *RESET REGISTERS TO REENTER ALL 
TINUS; START & END SSES 
P GO GET NEW START & END ADD 
INVDDR 
g GO GET ALL PARAM AGAIN 
INVDTP 
STPARM 






1OF Rooe REGISTERS FOR RE-REQUEST 


eee FES Brae 


0.6 OPERATION CONTR SITTOES 
ES skip IF 26 SECTOR F 


;FORCE 16 e4 SECTORS, TRACK 





set TE ora 
ELSE SET FOR a3 error WORD COUNT 
‘TEST IF OFFSET REQUIRED 

ELSE nel, — 


#13000, TKWDCT 
OF INUS, INI TOF 
S$ 


#OREQSW, OPCONT 
4 


#RCDASW! VFHOSW, Ries vse SET READ CHECK & HEADER VERIFY 
MDINUS, #3 ;I1F MODE 3 
#VFHDSW,OPCONT ;SET VERIFY HEADER 









Bs Bie 
se AK 
2071 017122 
5058 bleise 
etre 

2081 

2082 017136 
2083 017144 
2ne4 017146 
2085 017152 
2086 017156 
Shes otfied 
se ties 
Spar BIsise 
2092 017202 
2083 017204 
2094 017206 
2095 O17el2 
2096 17614 
2097 017216 
2098 017222 
S100 b7e30 
2101 017232 
2102 017234 
2103 017240 
e104 Oi7eNe 
se Bes 
Sins 017260 
5109 OL7eEe 
2110 017264 
2111 017266 
2112 017270 
2113 017274 
2114 017276 
2115 017302 
2116 017304 
2117 017310 
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006344 000002 


000001 o026S6 


O3-NOV-76 16:15 
PARAME 


7$: 


9S: 
108: 


aronzareesenpoestareenegeetnetenssnssessnaan 
pat THE CAPABILITY TO INDICATE SPECIFIC PACK 


ROUTINE PROVE 
bon aa iN HOW TO ENTER THe ABORESSES AND Hol TO ENO THE | 


torte ore te 


: ¥THI 


MP 


Lspeess BITB 


1S: 


21S: 


3$: 


4§: 
12$: 





BO TNUS, , #2 


tirosus vEvosutucbi, OPCONT SET WR 


10$ 
MDINUS, #1 


NO3. 


PAGE 40 
TER REQUEST & CHECK ROUTINE 


5 TF 2 


CHECK DATA SWITC 
om MODE i 
*NO- 


SKIP 
#WHDSW! VFHDSW, OPCONT ;SET VERIFY HEADER & 


10S 
GETUBS’ 


#WHDSW, OPCONT 
Ha: 


SOSSOET, Rl 
817777, (R1)+ 


dS pBUF Rl 
#400, RO 
4177977, (R1)+ 


els 
, UBS@ 


(SP)+,R1 
(R1), #032 


DRINIT 
(Ri 


+ hee Rl 
(R1) 


138 
R1,-(SP) 
PC, OCTBIN 


(SP), ECTNUS 
(SP), SCINUS 
S$ 


355 te TE HEADER & DATA SWITCH 
#WHDSW,OPCONT  ;SET WRITE HOR & bara SWITCH 


;GET USER BAD SECTORS 


3 TEST IF WRITING IS TO BE DONE 


;NO_- SKIP OUT 
SET UP TO CLEAR BSSOFT FILE 
TO ALL ONES 


;GET ADDRESS OF READ BUFFER 
:SET count FOR CLEAR 
;CLEAR TO ALL ONES 
;DECREMENT COUNT 
iL Der UNTIL 0 

SK USER BAD SECTOR QUESTION 
eer ANSWER 


NO IF #2 
;ELSE GO START yout 


IF 
YES - EXIT 
igeT POINTER TO FIRST WORD 
USER BAD SECTOR FORMAT 
TYPE NEXT ENTRY REQUEST 
GET BAD SECTOR ENTRY 


; TEST IF CR (AL) 
YES - EXIT 
;SET TO CONVERT "0 BINARY 


;ERROR_ RETURN 
Ns IF CYLINDER VALID 


K 
TEST IF CYLINDER VALID 
YES - SKIP 






WRITE ere DATA VERIFY HEADER, 





—— om 


RKOS . FORMATTER page Ss 27.1006) =NOV=" 6:15 ses 4] 
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118 01731 014025 168: TYPE Invoc ey: CYLINDER MESSAGE 

1 1731 ist tape LEAN 

l 1 4g Fora MESSAGE 

1 1 cs: MOV P+. (RO)+ STORE 

l 1 lie? ocoos4 &$: chee 1),6’, LOOP T PA anhet T cuLin LINOER ENTRY 

i 1 1 Q + COOK F 

t 1 TSTB 3s (RL He ENTRY it chet (NULL) ts 

is Of Or 

} 1 013711 TYPE BADENT 

1 1 BR 45 a MESSAGE 

} 1 1 7$: TSTB «(RID 

i 1 MOV RI, -( SP) oeacK TO BINARY 

i 1 ou’ 037426 J PC; OCTBIN 

l 1 2603 MOV (SP)+,R3 lm ; Phat 

1M. Ol 1127 oocos4 8$ CMPBOsé«(R1), &’, Looe OOP 70 BURP RiP Rl pest 

1 1 1 BEQ oy OR COMMA 

i i 1 TSTB (RL) Hau RESTART This ENTRY IF CR 

ef Re elt” 

139 Ol 04401 013711 TYPE ROCENT MESSAGE 

140 Ol 1 BR ; FORMAT MESSAGE 

141 Ol i 1 9 STB (RL)+ 
i; el ot MOV R1,-(SP) 60 CONVERT SECTOR TO BINARY 
| pf i + 037426 JSR PC; OCTBIN 

144 017414 305 sERROR RETURN 

145 017416 MOV (SP)+.R4 >STORE SECTOR 
| gy 1 006354 CMP ETINUS TEST IF TRACK VALID 
| Bug of 006352 en smius YES a Fac vat 
| gt 174 boE ir >YES = SKIP 
| g1S0 017434 014055 178: YPE  ,INVDTK : INVALID TRACK MESSAGE 
| pis zug 005740 Ist (RO) ;RESET PO 
j 1 1 N0070 4s ART 
| él 17444 020437 006342 10S: CMP R4, SEINUS > TE T IE SECTOR VALID 
| gl r BLT 1s Hi pK 
| piss O1 i 013731 YPE  , c ‘point MESSAGE 
| 156 Ol TST *(RO) 
| p157 O1 BR 4§ 16D RESTART 
| e158 oO il 11S MOVB RY, (RD)+ ; Fer ae 
169 1 11 HOVE R3’ (RO)+ 

: i 1 013644 ry jhexto ; STION 
7 162 17474 10440! 30S T , QUES ‘TYPE BAD LINE 
a 17500 104401 041674 SSTTYIN : 
te 1 1 001267 
«glee Bizeig OR a ;GET LINE AGAIN 
! i 17512 012710 177777 138: MOV #177777, (RO) ;HEKE SUR <HORD eFTER THE LAST 
| pies 017516 000137 017526 158: JMP 360 
| pg169 017522 000137 017776 IMP ORIN *GO INITIALIZE ORIVE 
1 s jtevavaneneverenenetaey HUSSASSEECEOEEEGEENREEOECUEEEEOEEOEH 
| B71 * SBTTL SERVE SOBSE QUESTION ROUTI Ne 
| BI :% rire ROUTINE DETERMINES IF SOFTWARE BAD SECTOR FILES ARE TO 

217 * BE PRE' 
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D2RELB.P11  O3-AUG-76 00:00 ~ PRESERVE SDSSF GUESTION ROUTINE 
174 . 
175 01752 10440} 013305 CKPRES: TYPE  ,PSDQ ; TYPE PRESERVE SOBSF QUESTION 
i i ven 1 oy (SP)+.R1 GET POINTE ER I TO SPUSHER 
1 1 T BSFP VE MESSAGE 
1 1 paaaes Cres By ), 8032 inet a 
i : ane Fe ees "art AND GO FORMAT 
i zi TSTB BY) : 
1 


turururururururururururururury 
BERR LOCA SSBVRRIGR= 


6 0 -+ & 9 6-2 Bs + b> = = OH ph 


b= bh bh pb mp = ba pam poppe 


os 


SSSR ERROBS Ra eRURUneeSS 


037426 


‘er Pa 
Ss: He | “preva ONT ipott Presemied 


BR 

3S: TYPE 

4§: IMP ORInt Te 
STIL GET CEGIER (PRCETER ENTRY) SETTLE 


TT ARAMETER ENTRY 

tk HR ASHE Ae GETANS WITH Re Potnt ine O THE DEFAULT PARAM 
R3 POINTING TO THE ACTIVE PARAM 

SARETURN RTS RY 


jams Smo ate an ie Vaetce teen ENTRY AND ALTERS THE 


IF THE ENTRY IS NULL THE DEFAULT 
Loree oe THE CONTROL C & Z 

OE) oe Alaa gD ACTION TAKEN. SOME 
pp OME. ALL ARE TESTED TO 


33 ee BA UL. 85 SR, SRR tA 
GETANS: 


ROLIN ;READ ANSWER 
MOV (SP)+ Ry G51 Sina ADD OF MESSAGE 
ce ‘ iis : i VESLBRANCH _ 
STB (Rl) TEST FOR NULL 
HOV (R2), (R3) ;GET DEFAULT FOR THIS PARAM 
4S: MOV R1,-(SP) ;PUT ADDRESS OF PARAM IN ON STACK 
JSR PC, OCTBIN : CONVERSION 
age (SP)+, (R3) ig 3 Recs 
ss: CHP a »R3 {STAR TRACK PARAM 
CMP SSCINUS, R3 ie IN eae 
6S: ane thos, (Ra) 
7S: TSTB ss (1) 
a 85 : a ETORES ORE DEFAULT & EXIT 
cH af 1)+,8’, TIFC 
BR 4 BACK To CONVERT PARAM 
8S: MOV dhe, (Ra) Yes-G0, Bock 
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edad zasaansesss 
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02 0 0: b= bb oo 0 


SSIES RRR ERERRAR GLa ue alata ee ee Fa ee eee 
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9S: HP (R2)+, (R3)+ Rs Re & R3 
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BEQ 11 sNOT BAD BEFORE - SKIP 
MOV RO, SREGS *SET UP TO PRINT ERROR 
MOV R1, SRE pees 
ERROR en ;ERROR- BAD HEADER AREA 
IMP d ART 
11$: ERROR 76 sREPORT MARKING SECTOR BAD 
ISR PC, BSSINS s INSERT BAD SECTOR IN BSSOFT 
fer pe Bh SERIE 
BF pot I 
cs CLR SREGS *CLEAR REG S FOR COUNT 
DERCNT,SREGS § ;INSERT 
191 :PRINT SF 
3$ NC s THIS S 
CHP Re, SEINUS sPRRANETER OCK TO PICK 
MOV R2,P.SECT(RS) AFTER THE BAD SECTOR 
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; THE FOLLOWING BLOCK OF CODE CHECKS THAT THE WORD COUNT IS 
CORRECTLY ADJUSTED TO PICK UP THE OPERATION AFTER THE SECTOR 
; THAT IS CAUSING THE tg IS penAeaT Ti wy THE WORD COUNT 
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ag 
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CMP SEINUS, #26 sARE WE IN 26 SECTOR FORMAT? 
BEQ 13 iyES. SKIP 
MOV #12000,R4 SELSE CHANGE VALUE FOR 24 SECTOR FORMAT 
13$: SUB Re, R4 
NEG RY 
MOV F (SECT RS) ,R2 
CMP RG. STMPE 
BEQ 10$ 
MOV RY, SREGI1 
MOV STAMPS, SREGI2 
MOV R2, SREG1O 
ERROR 105 
HALT 
MOV R4, STMPG 


;END OF BLOCK OF CODE TO CHECK WORD COUNT 
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MOV SCTNUS, RO ier GET STARTING CYLINDER 
Me ee 
VERLUP: MOV RO, CCINUS stone CURRENT CYL 
MOV Ri’ CTINUS :STORE CURRENT TRACK 
BIT #SW9, ISWR *TEST IF LOOP ON ERROR 
BNE 1$ IF YES - DON’T CLEAR ERROR FLAG 
CLRB = SERFLG 


1$: JSR PC, ROHDRS 


BEQ 2 
SR PC OOP GO DO READ FOR DATA VERIFICATION 
2s: BITB § 8WCDASW,OPCONT ;CHECK IF WRITE CHECK para 
BEQ VERROR ‘TF _NO = SKIP WRITE CHECK 
JSR PC, WCOP “ELSE GO DO WRITE CHECK FOR DATA VERIF. 
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BEQ 4g IF _NO - GO DO NEXT TRACK 
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Q 4§ NO SKIP 
JSR PC, PREPLP GO PREPARE FOR LOOPING 
BR VERLUP *LOOP 
4S: ISR PC, TRKINC 
TSTB © oPCOMP 
BEQ VERLUP . 


RT’ PC 
; Tj 0-971 Rep 
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5 SSE SESE SEE SEE SESE SSE SE SE SESE SEE EE EEE EE EEE EE EE 


RBHORS: 


G 
jen PC, POSOFF :GO POSITION AND OFFSET 
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R1;P. TRCK(RS OF DESIRED 7 Track Cyt 
CLR astks NTERRUPTS PRON REYBOARD 
#RDALHD, P. CMND aire 
PC, DRVCAL D0 
MOV #100, aSTKS *TURN ON KEYBOARD 
MOV #204: STMPD “SET UP TEMP STORE FOR THE NUMBER OF 
SEINUS, #26 HEADER WORDS THAT THAT MUST BE STORED FOR 
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ROBUF+2(R3),R4 ;GET TRACK/SECTOR WORD 
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#177437, R4 AR BUT T 
r4 7, igh FT TRACK TO AL Aton wet TESTING 
RY 
RY 
RY, RI sCHECK IF TRACK IS CORRECT 
3$ *NO = GO BUMP TO NEXT HEADER 
ROBUF+2(R3),R4 ;GET SECOND WORD 
ROBUF(R3),Re 3GET FIRST WORD 
ROBUF(R3):R4 :COMPUTE VRC OF HEADER 
ROBUF+2(R3), Re 
ROBUF+4(R3),R2 ;CHECK IF VRC IS CORRECT 
ail “YES = SKIP TO NEXT HEADER 

, :BUMP TO NEXT HEADER 

R3, SIMPO ;TEST IF END OF HEADERS REACHED 
*NO = GO TEST NEXT HEADER 

RO, SREGIO SET UP CYLINDER AND TRACK FOR REPORT 
Ri. SREGLi 
ie os a 
ROBUF+2(R3),R4 ;GET TRACK/SECTOR AGAIN 
BSS FeSO leet wren 

, >NO - 18 NEXT SECTOR 
SEINUS, R2 * INITIALIZE COUNTER FOR MOV 
RHR 3SET THE INDEX VALUE BY MULT SECTOR READ BY & 
RT’ Rd | 
RDBUF(R3),BUFFI(R4) | ;MOV WORD ONE 
ROGUE + (RS), BUEE Lee CRY) HOV ORD Td 
Re *" s$DECREMENT COUNT 
aS ‘COUNT ZERO MOVE DO 
Wb, Ru *BUMP INDEX POINTERS NE oe NEXT HEADER 
R3,STMPO :TEST IF END OF REACHED 
75° NO = Ef RESET 8 UE TART OF BUFFER 
R3 “ELSE RESET 
R4, STMPO :SAME TEST FOR BUFF! 
6$ ;IF NOT END OF BUFFER, GO DO NEST MOVE 
RY “ELSE RESET R4Y TO START OF BUFFER 
x3 THEN GO DO NEXT MOVE 


R PC ; 
8 mT Gm te tit. eee 
s naman eee pe PE ORRSE ON URN TERI GEE EES 


1S: 





CLR 
MOV 
CMP 


Re 
SEINUS, RY -GET NUM OF SECTORS 
BUFFO(R2),BUFF1(R2) ;COMPARE HDR WORD 1 








ne 


3 


eee er Ty EeecerReee cece amneees 
IMM! ; 5 is ; } 1a 424 et r 






eae 06: 


Y11 27.1006) whork'c 


006102 
006104 


3 


ow 


ene 
38: BNE 
+ BRR 
ay 
2s: MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
} ERROR 
4§: FESREG 





BOS 
OnPaRE RGUTINE. 


$ 
ESero+2(R2), BUFFI+2(R2) ;COMPARE HOR WORD 2 
FO+4(R2) BUFF I+4(R2) ;COMPARE HDR WORD 2 


#6,Re ;BUMP I 
Ra BEC COUNT. 


a :LOOP UNTIL ZERO 
s$REGS RI igeyT UP FOR ERROR REPCRT 


;REPORT ERROR 
one NEXT HEADER 


SEESSSELESFFFSSA LESS SHESSAEEKEE RSE LSFEREFEPALRE EASELS SS RE¥SSIESSS 
*SETTL DATA VERIFY WITH WRITE CHECK OPERATION ROUTINE 


hibor 
123: 


G> 


eal 


1§: 


szpag 
aa 


et tain 


168: 


im wo 
+ a0 
— OO 


& 
Sraise sm 


a 





s SELSSELELSSSLAASE FALE LLLLE LL LLLESSEELLLESARELAL ASE LLALE LESS SELE 


TKWOCT,P.WC(RS) ;SET WORD COUNT FOR 1 TRACK 
: ERROR 


RR AC i 
SWE INUS.P.BALO(RS) ; Set U pr FOR EVEN OR ODD 
#6170, RO sCYLINDER DATA 


SWOINUS,P.BALO(RS) 


RO,P.CYLN(RS)  ;SET UP PARAMETER BLOCK 
R1,P re sFOR 1 TRACK WRITE CHECK 


16$ 
ge Ge oy pce 

p DYE (Re) SURE Ait aE ocr 
4377,R3° : MAKE THE WORD COUNT 
SOPIERR!HVRCER!BSERR,RECODE ; TEST IF OPI OR HVRC 

4§ IF YES-SKIP 

8OCKERR,RECODE ;TEST IF DATA CHECK 

23 : IF NO COUNT os NOW CORRECT-SKIP 
"on TES ee § 

a IF NO-GO ir 

SEINUS, Re ELSE GET MAX SECTOR +1 VALUE 





——_—_———— 0 NS Mma... 













COS 


RKOS oak FORMATTER pag tt €7( 1006) Fe a 16:15 PAGE SS tte gh 
. DATA VERIFY WITH WRITE CHECK OPERATION ROUTINE 


OZRSLB.Pi1 O03-AUG-76 00: 


38: beC po sNOW DECREMENT IT 
000002 006364 4: SBSERR,RECODE TEST IF BAD SECT 
BED 6 TF vee -"Co SBKTGNUE. TRACK 
QS: INC R ‘ELSE BUMP TO NEX SECTOR 
oce342 CMP Re, SEINUS :IF NOT AT LAST SEC OR - 
ui Bu 138 :GO TO EXIT IF LAST SECTOR IN ERROR 
: een 19S: CLRB DERCNT i CLEAR ERROR COUNT 
R2,P.SECT(RS)  ;SET UP FOR ONT INUE OF we 
;BUMP COUNT TO NEXT SECT 





810,R4 
; THE FOLLOW OF CODE CKS THAT THE WORD COUNT IS 
ie (cue Thee ge muceSeEg fe eed So 
+ COMEMOR. GETS REMED UP THE PROGHER HAL TS, CONTINUE CAN BE 


20010 


b= os 


BB BB BBE 
ge S88 





SC 
1 : 70 THE WORD COUNT TO BE CORRECTED AND THE 
1g : Br RoJUSTS: THE COUNT AND CONTINUES OPERATION. 
178: ASL Re 
BS ithoom 
: 000026 CMP SEINUS, 826 TEST IF We ARE IN 26 SECTOR FORMAT 
3 a RY rte SEY COUNT FOR 24 SECTOR FORMAT 
F 203: SUB ReoRa : 
: Ry Fiserens,ne 
| S37, CMP RGR ‘ 
BEQ les 
eS AB Ra bedlb 
ha 
eau MOV RYRS 
6333 sEND OF CODE TO CHECK WORD COUNT 
Fall 18$: MOV ,P.WCCRS) AT NEXT SECTOR 
| 3 6S: PRCB ; ORY a dT QUENCE- 
; JSR POSOFF °GO POST TION AND OFFSET 
000001 MOVE  SRTCHK,P. RS) sCOUNT THE ERROR 
2e4OMs MOV RO, P.CYLNG RE) ;SET UP PARAM BLOCK 
Feat MOVB «RI, P. TRCK( RS) 
| OV Re, -SECT(RS) 
ex3 000012 MOV é 5P.WOCRS) 
000014 BIS TBAII.P.PRST(RS) 
PC, DRVCAL 
006364 BIT SAAYDER, RECODE sTES 
194 BEG 14S : 
| { mene: Bre gg CRC if 
| 006364 IT  § SWCERR,RECODE ; Test 
124 Q 10S ; 
} 


| 
| 





RKO FORNATTER MACY11 27( 1006) 
DZRSLB.P11  03-AUG-76 0:08 oat 


We 


Do = fae bs p= pe ee pe 





NOD Su! 






Sy 


000020 06364 





ES 015233 

006264 108: 
s Seeteo ooze {tS 
Ss Bite 

1764 

Be pak es 
a ne 
5 002650 001174 
Paes, —s 15S: 
oe f 
5 BACOMP 
a 18: 
3013 - 


Bono WSSSSesy 


B50050 008364 9S: 


sea 


agaea aaaacgaees 


‘éSTTL DATA 


SHLLELRLLERRERELEE 


meseeeseeennees 





iS PAGE S6 
H WRITE CHECK OPERATION ROUTINE 


FEL HPORE DATA § PRINT ERRORS 
if YES-GO TO BAD SE TOR PROCESSING 
: T CTABLE MESSAGE 

: WC TRACK 


s SEELELELSELLLLLLLLLAAALLAA RRL LALE LRALALRALE AL LERALLAAALAARALALALELE 
LLELELLLLLLLLLELLLLLLALSLALEARLLELALALLALLLLEE 


“CLEAR RS FOR COUNTING 
GET THE WORD ERROR PE 
sWRITTEN THROUGHOUT THE CYLINDER 


-SET POINTER TO READ DATA 
+e oRE K SS FOR REPORT 


;PRESET REGISTERS 
3FOR COUNTING 


;COMPARE DATA 
;G0 REPORT IF NOT EQUAL 








z 
z 


% pages &7( 1006) of aN ze ath es PAGE $7 





DZRSLB.P11 
314 r SS: Ine E ELSE BUMP COUNTERS 
ie i 6s: an es sLOOP UNTIL DONE 
18 0; am RTS PC 
: Bre Ri Bue Br? ‘A G feko 
iE HOV (3) SREGIO STORE 4000, , & WORD NUM 
rey ( gre ' RY TO NEXT DATA WORD 
TST Ri eT Ri SWITCH 
BNE 4s ; iF NOT ZERO, THIS IS NOT FIRST PASS 
oe ee ee a, ee Teer pan ‘ant “19 10 
000010 CMP RS,810 ;ELSE Test F 10 
o- Q af YE 
PEESELEEAFEFASPTRELE LE TINE comme 
*8STTL DATA VERIFY WITH R READ OPERATION ROUTI 
1 Ol in paatarcretartreeeny Bi RELLERASE KRESS RSLARSHEK ELLE LEAK L KAHL FEE 
cn P.SECT(RS) ;SET UP TO READ A FULL TRACK 
asenae CLR 2 , WITH BUS INCREMENT INHIBIT 
6S: JSR PC, POSURE == G0 POSITION AND OFFSET ; 
ee tee oe Bluest 
me BYysE 990014 BIS SOTBELL 6. PRST(RS) 
ee ea ee 
1 006364 BIT SAAYC_, RECODE Pest IF ANY DATA ERROR 
. ‘ BNE es. ;READ A-OK, EXIT 
t 001254 118: MOV -WOR(RS) STORE WORD AT ERROR 
tottee HOY PDIStne) Re STORE : STORE Seton e TRAC R 
Sf ae ee 
4 BI : »RECODE CHECK I SECTOR 
| 32s 000020 006364 arf SOCKERR,RECODE ichECK $F BATA CHECK 
% BEG IF YES, DECREMENT SECTOR COUNT BY 
Aue S TS *1 TO SECTOR IN ERROR BUT 
=, BNE nat ies >SURE SECTOR IS NOT ZERO 
m 006342 ’ 
$$: DEC 
oo0400 001254 Sua 8400, STMP7 sIF DCK, ADD WORD COUNT BACK IN 
| ae Ben rat 3S: INCB DERCAT sBUME ERROR COUN COUNT 
$067 121 000001 hove akboaia,Pcmocns) Eve ion T UP Gb ro RETRY 
3069 024720 avers MOVB f 
l 
& 





Top aBaCD GEARS) 


aSTMP1 ef BALOCRS) 


soTpatt P P.PRST(RS) 


SUMS Receoe sANY DATA IN RETRY? 
:NO-GO/TYPE RETRY SLICCESSFUL 

87, DERCNT ELSE CHECK IF ERROR COUNT TO BIG 
UNSUCCESSFUL 


i 


or 


1 
1 1 


a | 

| “| 
| 
ade 


Es 
esygnage 


48 


;IF YES-TYPE 


sRECODE ;TEST IF THIS IS A DATA ERROR 
a! Noe IP eee PRINTOUT 
T AND POSITION 


T 
FOR aye UNCORRECTABLE 
connects 





sit ore 
;WAS THA 
NO - i 7 FOR CORRECTAGLE 
;SET 
; CHECK 
sEXIT 


EPR EEERER CEL UL CSc SE SER IS 


T 
;REPOR RETRY SUCCESSFUL 
8S: 


2 





TTL CALL DRIVER ROUTING NNR RNRRREABNEEE 


SBT TTL Gab OF DRIVER ROUTI 


ITH RS POINTING TO PARAMETER BLOCK 
FRETURN RTS PC 


MOVB 
ERROR 
BEQ 
MOV 
MOV 
CLR ; 
BIT : 
f Bre #1, SREG7 
pee Ss : oP FRR ONTINUE ON NEXT SECTOR 
totes? 006342 ore Re, SEINUS Et yee ERROR SECTOR WAS LAST SECTOR 
c. g90004 HOV Re P.SECT(RS) ? READ i REST OF TRACK BY 
9s: ASL Ro 
DEC RY 
rE 013000 aa #3000 RY 
100 em SUB R2,R4 ” 
1 NEG RY 
ite 1 MOV P.SECT(RS) ,R2 
1 37 001254 CMP RY, STMP7 
ibe "i Be age 
195 i 001 SREG11 
1 1 001 001206 MOV STMP7. SREGI2 
3107 010237 00 MOV R2, SREGIO 
108 ERROR 105 
3103 HAL 
11 1 001254 MOV R4, STMP7 
i 1 1254 o00012 10S MOV STHP? ,P.WC(RS) ; BUMPING TO THE NEXT SECTOR 
ii5 4 Sap HE 6$ Amer AT RD s ge os 
3114 0 1174 She 7S: CLR SREGS aie sCLEAR REG OR RETRY COUNT BYTE 
3116 igtiot ERROR OT 
sia Br GREG 
aS a. 
e 
1 
ies 
1 
2125 


‘Epeev ire FOS 
DaRELB. Pll 03-AUG-76 00:00 ~~” pA¥A VERIFY UTTH READ OPERATION ROUTINE 
| 
{ 
| 
j 
| 
| 
I 
' 
| 
| 
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w 
bb bo B-- e+ De 


GH-BSBVe t 


GIWIWIG)I WI GI WI GI GIG) GI GIG) G) GI) GI GI) GG) GY) GIG) GG) GI GIG) GI GIG) Gd GI) Gd 


b— &+ bb hd a = Pb ht sh be 2 Ds Bo Fh sp sh Bs he Pee G2 Pee Pe be 


= b—* 0 6 bh 0-2 & HH 2-2 D-H = Be 


BIadIIR2ZIn-SSECEHIGR-SSSVRRLONH SE SSSEHE 


=SSBVRRE 


@ 
— 








Re nema 


ce 
SPALL. 


ss 


ee 


EE 


Ee 


TER 7% pagel 27( 1006) 


001174 


diver, CLRB DONE DEN Thai eemesteneae 

: CLRB DONE CLEAR 
MOV RL,~| ) : STORE pone 
MOV -(5P) 
MOV sCOMSTR, RI SS OF COMMAND STORAGE 
MOV (RS), (BL) Hi PARAMETER VALUES 
MOV (R5)+; (R1)+ ORE PRREPET STORAGE 
MOV (RS)+, (R1)+ 
MOV (R5)+, (R1)+ 
MOV (R5)+; (RL)+ 
MOV (R5)+; (R1)+ 
MOV (SP)4:R5 
MOV (SP)+)R1 
MOV R5, 1S seer PARAM BLOCK ADDRESS 
JSR PC;C. INIT 

1S: . WORD GOES HERE 

2s: JSR PC, W.WTCH iCal WATCH Doc 


BEQ 2s :IF NO - DO ERROR RECOVERY PRINT TEST 
1S 
FS 3 TSTB  ERRCNT ICHECK I IF ANY ERRORS HAVE OCCURRED 
BEQ 15 *NO = SKIP TO 
cs 
MOVB. ERRCNT,SREGS  ;GET RETRY 
ey re Beamer esc 
1S: CLR sCLERR COVERY FLAGS 
RTS URN 
Faith +t eee 
TYPE ERROR ROUT 
JSR TYP ERR 
ie TS 





GOS 
CALL BRIVER ABGTINe = 9? 
:ATHIS ROUTINE 1S USED TO INITIATE A. SUBSYSTEM OPERATION BY 


sgh ING I AND. bs most POINT 7 YO THE. PARRPETER = 


s¥BLOCK WHEN THE ROUTINE I 

;¥THIS ROUT WATTS FOR gs OPERATION TO BE COMPLETED 

iceir peal gn caue fe Sassen Teh poEe-ROT PROVIQE 
/HUae wtie tes Tee noutine fo ReTum To Tee cacuen = Oe 










NOLO 
Ree net ovTine nneeeeeeeeeeessss 


oe aoe OeyeCTeD Ih DRIVER HHEN NO ERROR 


a 


hc ION. THE ROUTINE SETS THE 
IN THE DRIVER CALLING 


HELLLELRLLLALALLLLAE 


3#THIS ROUTINE USES THE “ITEM CONTROL BYTE” (SITEMB) TO DETERMINE WHICH 
















HOS 


x may ah 16:15 PAGE 60 
TYPE ERROR ROUTINE 





RKOG FORMATTER ping 1 27(1006) 


OZR6LB.P11  03-AUG-76 





182 s HERROR ROR 1s TO BE REPORTED. IT THEN USES THE “ERROR TABLE” (SERRTB) 
; j3EN 0 DEFINE WHAT INFORMATION IS TO BE REPORTED CONCERNING 
165 025262 104411 jSEREHEEEbenaeneeneanesnsnnanesnnnnoneneennaneneanescsaenntaes 
18? e772 020000 153546 Se #SW13, aSWR s INMTBIT ERROR TYPEOUTS? 
189 OO1 114 SITEMB, RO sENTER ERROR NUMBER 
1 1 ieee #1 : LEAR UPPER BITS 
ig DEC RO FORM INDEX FOR ERROR TABLE 
iS eae s 
194 1 ASL 
195 4 001272 1S: ADD #SERRTB,RO sFORM ADDRESS OF ERROR ENTRY 
iS ees bie = a oe oh ee 
198 104401 001267 YPE SCRLF {TYPE CARR RETURN LINE FEED 
ae ae Ae HA cen 
01 r 025452 38: MOV (RO)+, 4§ *GET I 
es 1 i 1 001267 eee Sar s BRANCH iF oS 
oh 1 & TYPE : i TYPE. get HEADER 
cad Oesues 2001 cs: nove (RO)+,R1 GET D POINTER _ 
I BEQ 20$ *BRANCH I ARE NONE 
en ee f Oe nn eos 
Sati 1 MOV (RO)+,Re2 *STORE NUMBER OF DH’S 
Su ivy Bin fee 3 be 
3213 72 104401 001267 TYPE SCRLF ’ 
3214 1 10S:  MOVB R3 :GET 
3215S 1 3 
316 005703 ; 
2 sae 11S: : 
re] Ge5510 aaige : : 
3220 O2551e 005303 : 
$221 025514 001403 : 
025516 104401 012744 : 
3223 Oe552e2 000771 : 






Ym i er rr a re 








OZR6LB.P11 
3224 Gesse4 








\ 
t 
be 
io 


BS ERSES CEES a MULLEN Pe Fee SRSA NALS 


rea 
ae 
025712 
peer tt 

ib 








RKO& PACK FORMATTER 
03-AUG-76 


2 


Cineune 


Guieene 


MACY11 27( 1006) 
00: 


000014 





a “NOV-76 16:15 PAGE 61 
ERROR ROUTINE 
14$: DEC R2 sMORE DH’S? 
Wee | SERLF spabbeegrei 
TST 2(RO) ;ONLY_A DH IN THIS REQUEST? 
Q 1S$ *YES-BRANCH BYPASS INDENT 
COM RY : INDENT? 
BNE S$ :NO-BRANCH 
SPACE2 i YES" TYPE SPACES 
158: nov tRO)+, 168 iGE EX DH POINTER 
168: TORO 0 On BOTNTER GOES HERE 
TSTB = (RO) i TYPE A DT A t 
ae rae RERENY OF POINTER 
BR 14$ Hs F END OF DF BLOCK 
218: YPE SCRLF 
TST RY ; IN ? 
178: aos SB acee *YES-TYPE SPACES 
los *LOOP 
20S: 
PC 


5 ARSE SEA EAE SE Ee SEE SE SEE SESE SE EE EEE HEHE EER EER EEE EEE 
-SBTTL_ CONTROLLER ERROR REPORTER ROUTINE 

SRENTRY: JSR PC, 
5 ERE TURN: RTS PC’ 


jATHIS INE opesoat ares ERROR WORD AND 
IREPORTS THE ATE MESSAGE. THE well REGISTERS ARE 


SaRETRIEVED FROM THE RKBI1 AND PLACED IN PARAMETER 
; #BLOCK. THIS 1S DONE BECAUSE PAR O-MAY NOT BE VALID 


seat T THis TIME. 
A ee Se 
i = Bree. #377, DONE ;SET_DONE FLAG 

Bt SCgSVAL,P.PRST (RS) GTEST Ie CoO VALID 

JSR PC ,REPSUP CALL FOR GETTING STATUS 
128: JSR PC, TOPROC ;LOAD RK REGS INTO SREGS 
13$: BIT #B1T0,€.CONT jERROR 0? 

BEQ 1$ NO-BRANCH 

ERROR rr CLEAR CONT DID NOT CLEAR ERROR 
1S: BIT 8171 E.CONT  ;ERROR 1? 

ERROR gS : *NO ATTENTION IN ATTENTION SUM REG 
2s: BIT #BIT2,E.CONT  ;ERROR 2? 

BEQ 3 :NO-BRANCH 

6 UNSOLICITED ATTENTION 
BR g 














ret 


ROBRSASRTURSNso Season ssa Sn asc Reoa a URaTONUNaNROTOROS SSS 


BRR RREKRRERERR 


SSE SESLRLSSASLS 
eCo00 OoOOoOOoOooOo 
See Se eee Ke 


REN SSSRRRE 





ae 


8 
S 


a 


= 


10441 


006372 
001162 
po00ds 
000004 
000016 
oo0de0 
000030 
pooose 
000036 


mee OO 
Reneese 





DoReLB. Pit 3-AUG-76 00:00 


000010 


000400 
001000 


JUCUUL 


27( 1006) 


006364 


O3-NOV-76 16:15 PAGE be 
CONTROLLER ERROR REPORTER ROUTINE 
38: BIT #BIT3,E.CONT § ;ERROR 3? 
BEQ 4 :NO-BRANCH 
ERROR 67 "UNEXPECTED DATA TYPE ERROR 
4S: BIT 81T4,E. CONT sERROR 4? 
ERROR 29 ATTEN TION DID NOT RESET WITH CLEAR 
S$: BIT 8B1TS, E.CONT Faro 5° 
ERROR a + oaey act EAR DIDN’T CLEAR DRIVE ATTENTION 
6S: BIT #81T8,E.CONT 
72 ;DATA 
= sie #5179,€. conn DATA LATE WHEN UNLOADING HEADER 
ns ERROR ie 2 oo sCONTROLLER ERROR DURING DRIVER SERVICE 
: BEQ ios’ 
sate ERROR > aie a ;DRIVE DETECTED PARITY ERROR 
= ie us 3° 
ERROR 52 sMULTIPLE DRIVE SELECT 
11$: ERROR 75 * UNDEFINED ERROR 
7§: BIT #LEV2ER,RECODE ;TEST IF LEVEL 2 ERROR 
BEQ :NO - SKIP 
14S: CLR ONT CLEAR BR CONTROLLER ERROR WORD 
gre ei rmttatteeeeee 
Hi FRE PROPER TEMPORARY REGISTERS EGISTERS FOR REPORTING, “ELL THESE. NY 
2iNOT BEENCLUDED IN THE Teron Rei TER HEY ARE LOADED 
aR - AR ERROR COMMAND STORE 
HOVE P, ,CHND (RS) , JERRCOA_ STORE COMMEND START VALUES 
MOV P.CYLNURS), (RO)+’ 
MOVB P. TRCK(RS), (RO)+ 
CLRB (RO)+ 
MOVB =P. SECT(RS), (RO)+ 
CLRB = (RO)¢ 
MOV P.WC(RS), (RO)+ 
HOV bBo OCR) (RO)+ VALUES FROM THE 
MOV Bes (Rey’ (RD) )+ SBARANETER BLOCK K AND LOAD 
HOY PDO (RSS Cross bone REPORT NG, hie Noe 
MOV Pp WORCRE)’ (RODS | sDATA fa MAY alto? BE e VALID 
Mov FREOC TRS Rose : DETERMINED LT LATER) BUT IT IS 
MOV -PDS(R5),(RO)+ 














g 


a waa acl cane ee ae ee eee nctns 





: 





= 
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FORMATTER 


ag 


eae 016520 
026230 
026234 
Ocbe3b 


eae 


beesed 


. 


11 3-AUG-76 


O3-NOV-76 16:15 


MACY11 27( 1006) PAGE 
00:00 REPORT SUPPORT ROUTINE 


MUV P.ERCRS), (RO)+ 
‘9 MOV P.AQO(RSS, (RO)+ 
o00044 MOV P.AD1(RS), (RO)+ 
MOV P.BO1(RS), (RO)+ 
MOV p-B10(RS), (RO)+ 
MOV P.B10(R5), (RO)+ 
4 MOV P.A11(RS), (RO)+ 
000056 MOV P.B11(RS), (RO)+ 
meee 
5 SSBTTL UREPORT ERROR ROUTINE 
% ENTRY JSR PC, ERRHDL 
jARETURN RTS PC 
ieTur INE IS CALLED BY THE OR WHEN AN ERROR IS DETECTED 
aIN THe, OPERA TION Ny HE ROUTINE De TERMI TErMines We WHICH H COMMAND WAS 
$3 fe a Bl A le ll 
00377 one6s2 ae ra” 6 {DONE DONE FLag 
SpE Se4 Inge ERRCT Thon RECOVERY CODE 3 WORD 
000400 006364 ER2ENT: BIT SLEVCER, RECODE : TEST If eno LEVEL ERROR 
opYME MOV #PARM.RS 2EL < ei PROM TER BL SEK 1 
1 MOV #RETANL,A.ABNL :SE  BRORNAL AND NORMAL RETURN FOR 
030326 002576 HOV BRE TNAL 8. NORA s DRIVER OPERATIONS dN ERROR PROCESSING 
enna 5 *NOW BEGIN TESTING THE ERROR BR 
;BITS. THE SEQUENCE I 
;WHICH THEY ARE TESTED IS 
sSONSIDERED SIGNIFICANT IN 
*CATASTROPHIC NATURE ARE FIRST 
TESTED. 
IF AN ERROR IS FOUND SET 
>THAT ERROR IS REPORTED AND 
*THE REPORTING IS TERMINATED. 
: IF ADDITIONAL ERROR SET, 
*THE RKG11 REGISTER PRINTOUTS 
*WILL SHOW THIS BUT THE 
jREGISTER CONTENTS MUST BE 
SHOAL DECODED T0 LOCATE THE 
gg0034 MOV P.ER(RS) RY set on TO GISTER 
BIT #UPE,P.CS2(RS) ; TEST UPE UES- 
BEQ 1$ 
ERROR 1 
coreee 006364 81S #6 T, RECODE 
oo00020 1S aNEN, P. CS2(RS) ;TEST NON-EXISTANT MEMORY 
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ae 





seen § 
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SOUS nte Scat enters 
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REWsG Season See RRS 
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ae 
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8 
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as 
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=3 
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BES 
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aes 


SERS 
Senne 


MACY11 
00:00 


p00200 
ai0060 


27(1006) O3-N 
REPOR 


006364 


000014 


006364 


000016 


006364 


006364 


000016 


es: 


41$: 
5S: 


6S: 


ess: 


10S: 








OV-76 16:15 PAGE 64 


T ERROR ROUTINE 


#SPDLSS,P.DS(RS) 
24s 


Hor, RECODE 
re hametaaae ; TEST NON-EXISTANT DRIVE 
aie ; TEST IF NED & UFE SOTH SET 
35 ;NED & UFE BOTH SET ERROR 
dog ;NED ONLY 
 foetticnensiamnea ;TEST UNIT FIELD ERROR 
#NED,P.CS2(RS) ;TEST IF UFE & NED BOTH SET 
338 ;NO-SKIP 

;REPORT NED & UFE BOTH SET 


375 

te sREPORT UFE ONLY 
BCMDTO,P.PRST(RS) ; 

PC, TOPROC ;G0 PROCESS TIMEOUT 


SLEVCER,RECODE ;TEST IF LEVEL 2 ERROR 


41S ;YES - SKIP TO ERROR 57 

Bos ;ELSE MAKE FULL TIMEOUT REPORT 
ae 32ND LEVEL ERROR REPORT 

+ a thee cots ;TEST DRIVE BUS PARITY ERROR 

6 

PEs, MECOLE 

er : TEST DRIVE DETECTED PARITY ERROR 
7 

#RCLREG, RECODE 


3 
soi8,P 050s) ; TEST AC LOW 


10 
37$ 
;TEST SPEED LOSS 


ll 

37$ 

seer? -CBL CRS) ; TEST FOR CONTROLLER TIMEOUT 
e7 

orc, RY ; TEST ILLEGAL FUNCTION CODE 
le 


378 
eet P-CSRCRS) ; TEST PROGRAMMING ERROR 
13 















cr 


RKOS PACK FORMATTER MACY11 €71 1006) 


DZRELB.P11  O3-AUG-76 00:00 
ozese? 000137 O276E4 
OSe666 000504 

U3 Geeess Dalaba 
5G i 
OSee7e Te? 27664 
34e paragon 
5 
eee 
3484 026716 032704 000020 
Geeres [OW0Is 
Sue3 139 027664 
3488 026732 032704 OO4O00 
aie Oee7a5 001403 
3480 026740 10401 
Mel Geordie OO0197 de7E6y 
342 OBE74E 040000 
Sues BSEvEG TOuDSE 
oe ben fae em oe 
Sue? 026770 032704 
see 26774 001406 
S98 Getcue Ae 004000 006364 
3471 027006 000137 027664 
3472 027012 032704 001000 
373 Es 001408 
3475 po4000 006364 
3476 027030 000137 027664 
3477 027034 032704 002000 
3178 027040 00140 
3479 104023 
30 027094 052727 04000 ODbaEH 
Supe BevDee B608%0 00036 
2463 027064 001406 
Suge 027076 pos364 
3uB6 0001 4 
3487 027102 032704 010000 
Se oe wn 
Syst peviee boa? ‘ 
se Oe71e4 Petes SGoseo | oon0e0 
3483 027132 001403 
Suge 067138 tTSS  oo7eEy 
Sua? rae parqey 20000 
98 1 000010 006364 
Suga Deriee SGeTa7 | bheeso 
3500 Oe7le2 001402 


115: 
12S: 
13S: 
E 

a. 
14S: B 
B 

J 

15S: B 
16S: 


17S: 


18S: 


22s: 





O3-NOV-76 16:1 
REPORT ERROR ROUTINE 
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37 
#NXF ,R4 
12$ 


#ABORT, RECODE 
ALLTRM 
#SKI,R4 

is 

BRCLREQ, RECODE 


#COE,R4 
18$ 


ee 
ee, »RECODE 


#IDAE,RY 
19$ 


23 
SECURED, RECODE 
#DROT,P.DS(RS) 
20S 


e4 
SRELREG, »RECODE 


#OTE,R4 
215 


25 

sABORT,, RECODE 
#DLT,P.CS2(RS) 
225 


37$ 
tm 


#OPIERR, RECODE 
DERCNT 
505 





; TEST ILLEGAL DRIVE FUNCTION 
; TEST DRIVE TYPE ERROR 

; TEST FORMAT ERROR 

; TEST WRITE LOCK ERROR 


;TEST DRIVE UNSAFE 
;TEST SEEK INCOMPLETE 
;TEST CYLINDER OVERFLOW 
;TEST ILLEGAL CYLINDER 
;TESTDRIVE OFF TRACK 
sTEST DRIVE TIMING ERROR 


;TEST DATA LATE 


; TEST IF OPI ERROR 


; TEST IF FIRST ERROR 

















NOS 


RKO& PACK FORMATTER MACYI1 27(1006) O3-NOV-76 16:15 PAGE 66 
DZR6LB.P11  03-AUG-76 00:00 REPORT ERROR ROUTINE 


Su IS Se a ad 
1 00 006364 SOS: BIT #LEVCER,RECODE ;TEST IF A SECOND LEVEL 2 ERROR 
0014 $ ;HAS ALREADY OCCURRED 





BEQ 
oe ee ars: Enon Si oan 
26$: JSR C, BLDEXH see BU LD "EXPECTED. HEADER 
le JSR PC; ROHDO :GET 
BIT #LEV2ER,RECODE ;TEST free ER oR a TING. HOR 
BNE 28S IF YES-CO MAKE RBREVIATED REPORT 
3510 MOV RKBAS, Re STORE HE OER 0 INTO RE INTO REGISTERS 
gil BIC #IE,RKCSI(R2) RESET INTERRY 
1 RKDB(R2),$REGIO ;FOR REPORTI 
3513 Oe7eub MOV RKDB(Re), SREGLI 
3514 MOV RKDB(Re) ’ SREGI2 
so16 027262 BIT ACERR, RKCSI (Re) ;TEST IF ERROR DURING STORAGE 
17 terre 104 ERROR 30 ;MAKE OPI REPORT 
18 137 027664 IMP 37S 
ses3 era Ss : ces: RRR ERENT. —«»').-—=S« GO. MAKE. ND LEVEL REPORT 
ses peeshe neg aid 29: BIT #HVRC, R4 TEST IF HVRC ERROR 
3255 GSesig ponrae 008364 Bis _-SHVRCER, RECODE 
3253 feral. Wes 35 Bpeped mn B ae - ;TEST IF FIRST ERROR 
3505 Oe73eb 001 BEQ 30$ 3 ' 7YES = REPORT 
0001 IMP 375 ; : JUMP TO RETURN 
Ge7aa4 O3e7 37 QO00400 006364 30S: BIT #LEV2ER,RECODE ');TEST IF A OND LE ERROR HAS ALREADY 
I BEQ 3i$ SOCCURRED. NO-SKIP 
027344 104055 SiS: ERROR 
3530 02734 000137 027664 IMP 375 GET OUT OF ERROR REPORT 
3531 (027352 004737 031324 31$: JSR PC,BLDEXH * 3GO BUILD EXPECTED HEADER 
3532 O04? 37 030700 JSR PC’ RDHDO *GO GET HDR 
3533 000400 006364 : BIT #LEV2ER,RECODE ;TEST IF ERROR IN GETTING HDR 
3534 027370 001025 § % IF 7 "Ee-60 MAKE ABREVIATED REPORT 
3535 027372 O1 902670 MOV Re T RK611 BASE ADDRESS 
3536 027376 O04 100 oo0000 BIC #IE,RKCSI (Re) CLEAR PATERRUPT ENABLE 
3537 027404 016237 000024 O01202 MOV RKDB(Re),SREGIO ;STORE OFF HEADER 
3538 Oe74l2 016237 000024 001204 MOV RKDB(Re), SREGII 
3539 Sere 6237 000024 001206 MOV RKDB (Re) SREG12 
3540 nea 100060 000000 BIT #CERR,RKCSI(Re) ; TEST IN ANY ERROR IN UNLOAD 
oH 027434 001343 BNE TY YES - GO MAKE SHORT REPORT 
354 na neakrg 027664 ERROR , 
3544 027444 104055 32$: ERROR 55 sABREVIATED HVRC ERROR RPORT 
ee nn ie ne pes 
3547 ait 001422 BEQ 333° NO - eekle 
3548 027460 052737 OO0002 006264 BIS #BSERR, RECODE OR FLAG. 
3549 Ceres 016502 MOV P.DTS(RS) Re BET ET SECTOR IN E 
BA inn mee tere oe geet Ay Uae stn SE 
3552 Se eae net 1000 006364 BIT ABABSEC, RECODE TEST RESULT 
3553 027510 001065 BNE 37S YES = EXIT, NO ERROR OR REPORT 
54 027512 104104 ERROR 104 "ELSE REPORT BAD B 
55 027514 042737 o00002 006364 BIC #BSERR,RECODE ;RESET BSE ERROR FLAG 
3556 027522 60 BR 375 GO EXIT 





—— eee + ee ee oe 


= PACK FORMATTER c) 

DZRSLB.P1l  O3-AUG-76 | 

be 0278 

iq te 
i 
} 
i 
: 
} 
| 
; 
j 
| 





fou be es Ob bd © 


1 





_ ~ 
— ~ 
= — 
Ay t 
= en = 
~ oOo 


rag 
a 


eg rer 
a 


a 
Ture 


Be 
: 
ae 
ee 
Be 


gt 
8 
8 


&7( 1008) 
REPOR 
33$: ay > 
006364 Bit 
006364 ni 
C 
a ae 
| ‘s 
1504 HOV 
ERROR 
IMP 
36S: iT 
Doe ze BIS 
ac 
ie 
ERROR 
090014 37S: BIT 
BEQ 
ERROR 
096364 BIS 
000014 43§: r 
ERROR 
006364 BIS 
000014 44S: IT 
ERROR 
BH as: Hf 
006364 Is 


000012 





mi ‘ei <7) on Rita PAGE 67 


#9 sR4 sTEST IF DATA CHECK 
SOCKERR,RECODE ;SET DATA CHE IN RECOVERY CODE 
see ieelatt of Fag Ecc dich 
34 
#ECCNC, RECODE 
$REGL iREGLe a 0 oICh UNCORRECTABLE, 

3 2A el CORRECTRBLE 
® Gle 

RCN ;TEST IF FIRST ERROR 

eS ereKan $N0 ze PORE ADORE SS OF ERROR 
P.EPOS(RS) ),SREGIO ; sSTORE ECC POSITION & 
P.EPAT(RS), SREGI1 

1 EPORT DCK ERROR 


; TEST WRITE CHECK ERROR 
;CLEAR ABORT & + SET wae 


SWCERR, RECODE enon 
a re Piast ERR ERROR 
» GTPKAD ADDRESS OF ERROR 
33 ‘Rep T WCE 
ati ni ; TEST HARD ERROR 
36 
#ABORT , RECODE 
See, »P.PRST(RS) ;TEST STATUS CHANGE NOT CLEARED 
37 
BABORT , RECODE 
SECS P.PRET ENS) ;IFST ATTENTION BUT NO FAULT OR DSC 


RLEXaTt,P.PRS PRET CRS) ;TEST UNEXPECTED ATTENTION 


SABORT, RECODE 


;ALL ERRORS MUST EXIT THROUGH THIS POINT 


ALLTRM: MOV 





OCK SELECTION 
T VECTORS FOR RETRY 


eae Peeragt" 


S READY (HAS NOT. 


Bn tee READY SE 


47§ i RECALIBRATE REQUIRED EIT IS SET 


: iRecTOne 











aes 















RKOG ; Pie -75 fi path &7( 1006) aeBon? Exton Batting PAGE 68 
3 7 000262 006364 Bis een, »RECODE  ;ELSE ABORT WITH ABORT MESSAGE 
ie ‘ 004000 006364 47§: Bit ay ee df reco fenere Ret oc 
1 MOV RS SET 70 PARARE OCK ONE 


+ 999091 MOVE seca Pca) ;BLOCK IT. 
mG aka ea po 


SR Y 
000200 006364 49S: BIS SABORT,RECODE  ;PRINT ie RECAL ERROR MESSAGE, AND 
GO REPORT DETAILS ' 





oe 
: 


48S: ERROR 61 ;REPORT ABORT-RETRY FAILED 


; THE PROGRAM WILL HALT HERE IF THE ABORT FLAG HAS BEEN SET OR 
;IF THE DRIVE READY BIT IS RESET. 


HLTPRG: HALT 
016100 IMP START 


aR 
= 


THE FOLLOWING CODE WILL DETERMINE IF AND DATA TYPE ERROR 


te atratin ROUTINE On RETRY RETRY 2 MANY OTHER ERROR ISTO BE bet 


TED tte 16 IF ye IS UNSUCCESSFUL AFTER 4 ATTEMPTS, THE ABORT 
AND PROGRAM HALTS. 





| 032737 000136 O06364 BGNATY: BIT  SBSERRYHVRCER!OPIERR!DCKERR!WCERR,RECODE ;TEST IF ANY DATA ERROR 
052737 100000 006364 BIS SANYDER, RECODE 
! 000450 «BR DOL2 
| 932737 001000 006364 ees BIT _sBADSEC, RECODE TEST JF P90 SECTOR FLAG SET 
| 002654 O0265S CERTY: CMPB ,ERRLNT iste A RETRY IF ERROR COUNT HAS 
001174 aR ) a 

1 01174 MOVB 
000200 006364 Bis 
1 DOLi: MOV” 
rt 000010 MOV 
rf MOV 
i 1 MOV. 
RTI 

643: 

12700 O0S660 MOV 
| re s 
| 15552 MOV 

012025 MOV 





| 
| 





(RO)+, ( . 
ees ney (Ro) ts 
MOV 
gl ;CALL DRIVER 


RETURN GETS HERE, NO ERROR 
CURRED, RECOVERY WAS SUCESSFUL 


sof 
le SER FH Ee HERE. no omen 
000377 002652 RETNML: Bi28 437, D0Ne ;SET DONE 
sese tenet eneeneeepepatennenenmnecsesemne 
Hak nt BPE he Be ERROR HANDLER BY PROCESSING TIME OUT STATUS 
s EFELLLFLSSLSLLELLFLELLLE LEA ELLLELSLLLALESA LALLA LE LALLELALASALALSS 


tbPRoC: 


DOL2: RESEG ; 


pene 
oe 





o441 ” SAVREG 
1 MOV sree 
1 MOV 8SREGO, Rl jeter Ril FOR RK REGISTER STORAGE 
CLR R COMMAND 
a biges; HOVE "RO RS) ERR ie ioe 
a 16521 MOV P.CYLN(RS), FRRCOA spore CVLIN CYLINDER 
116521 MOVB  P.TRCK(RS),(RI)¢ ; 
3693 105021 CLRB 3s (RI1)+ 
3604 il 1 MOVB P SECT (RS), (RL)+ ;STORE SECTOR 
ze iesel Ghee P.WC(RS), (R1)+ ;STORE WORD COUNT 
3% 16521 HOV P-BALOCRS) RLF STORE Bus ADDRESS 
% beet KES] (Re), (Rt + dion ALL PARAMERERS AND VALID RKS11 
16221 MOV RKCS2(R2), (RI GISTERS 
ieee MOV RKDC( BRS | 
1es5t HOV RKRCCRD)’ CRED 
ya bes fies m ReeruN, 
ipsst MOV AKDSCRE) CAL oe 
Olb2e1 MOV RKER(Re), (R1)4 pee 
RETRIEVE THe ETAT FROM iHE 
cat ase 030466 JSR : PC, GETDRST GO GET DRIVE STATUS 
ie $ sdeeaate ciniemsciennaniaaadiaeinmieenensidademaiemumencndninenel 
714 ‘ASTTL RETRIEVE DRIVE STATUS ROUTINE 
ie tPsi0p GETDRST: 
1 CLR 
A 12 ee 100000 00000 MOV Mega i CLEAR CONTROLLER 
ters 0000 MOV ap TATUS CLEAR 
eo ns HE eer te 
755 bois BNE oe i ORL 0 0 
2724 012601 MOV Be Ri 





RE ree DOG 
SSE BE! 7 ES ho Bln © 
| 
H 
| 
| 
| 
| 
| 
| 
j 
| 
: 
| 











E06 
BaReLB Pid Ga-AuG~76 Oorod °°. RB Falbve Barve’ Sfarls Rout ne 


4§: 
Ss: 


REE TES 
EGE oR 





64S: 





= 
Ee 


SSeaseen 


o 
~- 
= 


i 


asazaganEnEes 


Se 


bar] 
ae 


AoAgAL: =teP) 


TS, Si elas Surlau 7 1 
TANL A. RETURN 
AS MSTA in i sTEST IF ito ae 


22 


C 
4s T OUT 

sREMRUCRED ue TATUS WORD TO READ 
81'RKCSI(RO) = SELECT 
RKES1(R2), RY iE col 
ROY, RY TEST IF READY 
EF utc SOREL Maron 
BEAOTO,P.PRST(RSS 4 ones IF TIMEOUT 
4§ sELSE GET OUT 
RKCS1(R2), R4 cS1 
aCERR, RH Teer. iF ERROR 
RKMR2(R2),(R1)+ SELSE STORE OU Tus WORDS JUST READ 
ROARS), (RAD 
RO TO NEXT STATUS PAIR 
RO, #4 T IF ALL HAVE BEEN READ 
EH NES - GOOD EXIT 
eLEVEER RECODE SET LEVEL 2. 2 ERROR 

SRKCS2(RE) iC Restore Goo 

(SP)+,A.ABNL  ;RESTORE OLD ERROR RETURN 


PC 
gs - Gimmie 
LLLLLLELELLLLLLLLLELLLELLLLLLELELELLELLLLLEL ELLA LE LEER ELAS EE ESS 


P.DTS(RS),R1 5 TORE TRACK AND SECTOR. OR 
P.B10(RS) RO GET THE CYLINDER 
#160013, R0 Sratus, ¢ 

Hah ‘Position 
ro toy BOER Tn Te IN We READ 
SPARM1 RS 
Rie ECT ise Ue To Use Prem FOR 4 EAD HEADER 
‘8B:CFMT,TYPFMT ;TEST PRESENT FORMAT & CHANGE 
i cem,p.csincoé) Geto gato etn 
5g Ont, >THE READ HEADER COMMAND 


HEAD’: mat uP To READ HEADER 
‘i et ee 


0, -(SP) 
eb4s, -(SP3 vee ON STACK 
: PUT Nel Bs AND PS 

PC, DRVCAL ALL ORIVER 


;CLEAR THE FORMAT BIT 












RKO he 75 page Ss 27( 1006) nea LEADER Neti 1S hee 71 








102¢ 000007 BiSB  TYPFNT,P.CSIH(RS) RESTORE TYPE AND FORMAT IN USE 
a 5 bP338e ppsse3 MOV . Re ecunn #F ;RESTORE’ 0 BLOCK 
ie ieaaes g 
geese ere geeoneceeeaeseeeeenssee 
ser pe sett oUF OFSEY 1s REQU REQUIRED. IF IT IS, THE HEADS 
The CYLINDER SPECIFIED IN RO AND THE HEADS ARE OFFSET 
as0 $8 }FTO. THE GROUNT. SPECT TED TN "Or A enone en nen ceeceny 
931 1 POSOFF: SAVREG 
1 1 000020 o02656 ITB wOREGSH, OPCONT TEST, IF OFFSET REQUIRED 
31 ores ™ . BEQ ae Brie To TO EXIT 
fatbes Aisoee Bonne 20000 HOV BPs ae et t Biba 
say psibeo Suave 0001 not aot “‘CHNDCRES” OSet up T 
aa Bs1O7e Liars Bop00e HOVE seo OFSTCRS} a oe? OE 
1110 900200 000032 BICB "AGOF (RS) CLEAR Wi 
Sere Bailie fouzaP slaie teb'o0 tr 
3803 031122 10441 1S: RESREG 
3208 031124 RTS 
8 5 LHFLELELLLLL ELE LLLLLLALLLELLLLLLLALALLLLLLALAAELELALAALLLEAAELLE 
3508 g sagt peste yo WT 7-7 "> eee ane ncereay: 
3809 931128 105037 » RB . ERRCNT ERROR . ca ERROR COUNT 
0 ait 1 006370 oe CETNUS RO OT CURRENT INDER 
seid Baiigs piseno phest HOY TINGE’ RT CeET CURRENT 
is tails Slee, Geese GEE =| AY mee A FST UP Gere el 
3815 O3li62 O1 001 MOV SSTACK-4, RY ; Re 0 STACK Bate -4 
3816 1166 011624 MOV (SP), (RYS+ : STORE RE TURN ON STACK 
381 1179 005014 CLR (RY) iCLEAR F 0 PRIORITY 
3818 031172 012706 001074 MOV #STACK-4, SP *SET STACK POINTER FOR 
3819 1176 o00002 RTI D0 RTI TO RETURN TO LOOPING ROUTINE 
sel GET PACK ADDRESS ROUTINE 
iasesnsuaneosuenseenienenty BREKERERSESRALEKELLLLKRSRERESELERERE 
3823 200 016537 001174 ijn P.OCYL(RS),SREGS ;GET CYLINDER. NUNGER 
Seee | aise rea | aR Hide rhe Rezarbns FOR 
3826 216 116537 000026 go1299 .. MOVE P. BTs( 85), $REG7 "gla ‘ TRACK AND SECTOR 
3 By hhes37 i neve shea? T THE ADDRESS CONTAINED IN 
3824 * al a A | fhe ee RK REGISTERS FOR THE AUTOMATIC 
3831 0: 538 tee 001200 DEC SkEG? sectarian 
35 = ae 010000 o00016 1S: BIT ACFIIT,P.CS1(RS) 
s3¢ 31 1 001200 MOV #19. , SREG7 
3836 264 000403 BR ae 


A mm re an we oe eee ee eee 


ar 















3837 031266 012737 000025 
001176 

$6 Bie BED cour 

3842 031310 012737 conde 
3 1318 001174 

l 
2S ee 
o3340 i 174, 

Seep Oaisve Ooeeot 

3857 031350 006201 

8 031352 guess? D0002E 

3860 031360 2737 177740 

eee ey hs 

3864 OG thin 1403 

3865 531410 052737 901000 

5 telus bly Balt 

3868 031430 043737 001176 

3869 O314 o43701 001174 

3870 031442 050137 001200 

3871 O31446 104412 

3876 031450 000207 

3874 

es 

as Ue 

See) SSi4e5 1osca> oneeso 

3882 31460 012703 

a B3ia7a See ni 

Se fie wie, 

fie ® 

o3 Gin hee Bee 

sear Os1e90 DIS7EE BODESS 

3892 031536 112765 000002 


ee ree ee ee -- 





001200 


001176 


2s: MOV #21. , SREG7 
3: TST SREGE 
Rode 
SREGE 
BR S$ 
4§: #2, SREGS 
GS 
s pee 
5 USE ofet ere R, TRACK AND SECTOR REGISTERS TO DETERMINE 
ny TCH WAS EXPECTED. LOADS ZXPECTED VALUES IN SREGS, 6, AND 
1 REE 
MOV P.DCYL(RS),SREGS :CONSTRUCT EXPECTED HDR 
MOV TD Rl ;DESTRED CYLINDER g DES DESIRED TRACK 
BIC I ;CLEAR ALL BUT TRACK BITS 
ASR Ri AND SECTOR. SHIFT THE TRACK 
ASR Ri OVER TO CONFORM TO HEADER FORMAT 
ASR Ri > CHECK: THE FORMAT BIT AND 
IF SET, SET THE HEADER FORMAT 
MOV P.OTS(RS),SREGS BIT. 
BIC #177740, SREGS ;CLEAR ALL BUT SECTOR 
ROD Ri ADD TRACK AND SECTOR TOGETHER 
& #190000,SREG6 ;INSERT BSE BITS 
BIT SCFMT,P.CS1(RS) 
BEQ 238 
23S ai SabRe SreGe COMPUTE THE HEADER VRC 
° , 5 
HOV SREGERI 
BIC SREGS, SREG7 
BIC SREGS.RI 
BIS R1, SREG7 
mee 
gs STIL RITE BRD SECTOR FILE ROUTINE eee 
*SBTTL WRITE BAD SECTOR FILE ROUTINE 
: THIS INE WRITES THE BSSOFT (BAD SECTOR FILE DETECTED BY SOFTWARE) 
: Te BPPROPRIA BAD SECTOR FILE. IT DOES NOT WRITE THE FACTORY 
ieee SLELLLLEREL RE RLHELLELL ES BERR AERA SE SESE LS RE LE LELE 
e 
ty DERCNT 
MON PRESET FOR, 2S AER eric 
CLR P. ors) SOTERA PROG 
BITB ‘ .CFMT, TYPFMT 1B wtiok IF On ee ey, TRACK 
INC : NEXT SECTOR (13) 
BICB 5. CFHT,P.CS1H (RS) CLEAR Be secon oftte 
1S: MOV #8SSOFT,P.BALO(RS) iE ORR SAE TER 
MOVE —SWRDATA,P.CHNO(RS) 310 WRI RITE THE CER BLOC OF BAD 
MOV #632,P.CYLN(RS) ; tor T (SOFTWARE DETECTED) 





) GO6 
FADE BAR, FORMBETER, ng BRCHA! 2703006) 40-75. AS 7 








HO6 


O3-NOV-76 16:15 PAGE 73 


WRITE BAD SECTOR FILE ROUTINE 


03-AUG-76 00:00 


-Pil 


RKO& PACK FORNATTER MACY11 27( 1006) 





S 
i od bated : 
igs pat 
1K bo S oe wo 
. ae yw Ei g.tee 2.82. 3 5 
Pgs 2 EE Serti apoee Be Bett, | 
2-1 2k 
24 eee ee ee ee 
iS vite ws S - cece Har Sr 
et eee ee 
a gos 
Ter. sar = = xo c+ ' . .@ a > 
uss cP WR ERE s J508'" TB, 
ee RE RG IN LEE ee eB ss 
3 
@ ERE © 
* 
SosurmuuaDiatrertaEbetgi ofnaigatSttett a Sepserer te mn 
fat ae 
6 8 oe | $ 
a3 °° («8 | 2G z 
te a 5 
: eas ut a SYPP8 5 
fee : e ae s 3 Be : : par s a:8-2°8 


Sa mE 


AGU IRM hee Rete ew ee A EU fs Masten snd Ata ee S8S 2 


EE OE hd mh Ob On ah Od OG Oh Od Oh gd Oh ed ho I ha hd ed ed rd ed ed Og hd 


SISSSSSSSBSSSSSBBS88S8 SB8SSSSSsSSSsssSssssssssssss 


SERARRE PARRA MER R Peer ene nee ee UOC URORER PR RORRERERERREES 

















RK 
0 


z 
z 


FORMATTER MACY11 €7(1008) O3-NOV-76 16:15 PAGE 74 
11 =: O3-AUG-76 00:09 BAD SECTOR REPORT ROUTINE 


“vo 





-AUG-76 
12 ee BNE S$ fae 
4 001242 #1, $TMP2 ‘ELSE SET 2ND PASS SWITCH 
i Nie ROY #8850710, R4 : Lae a TO OTHER Fat 
ai i: BNE 
104401 00126 TYPE  , SCRLF 
104401 19751 TYP NONE 
104401 015706 73: TYP SBSLAB TYPE SOFTWARE LABEL 
1 bs GO BACK TO LOOP 


001267 S$: 





oe 

sagas 
a3 
% 


9$ 
MOV RO, -(SP) ;EXIT ROUTINE - TYPE THE 
TYPOC ;NUMBER OF BAD SECTORS . 
016034 ore H ;AND RETURN 


015751 9$: TYPE 
8S: RE SREG 


aaa IES & 


ae 
~ 
2 
<£ 
i=] 
— 

ee] 

w 





FORMAT MACYI1 27(1006) _O3-NOV-76 16:15 PA 
aeReLb ei Ba AuG-76 0:09 RREL TORK ultbie DRIVER POR SEQUENTIAL OPERATIONS (REV. 0.08) 
-SBTTL RK611/RKO& UNIBUS DRIVER FOR SEQUENTIAL OPERATIONS (REV. 0.08) 


ESSE SSLOSSE SERENE CF 


032102 010546 
032104 O10446 
| Sane 
Geel? GLa 177776 
| bse 002610 
| peat Bisa, 002612 002610 
| cals LIS 
| 3214 OL 
0321 
032156 001016 
| 
| 
| 





;*COPYRIGHT (C) 1975 
seDIGL re 


YNARD, 1 
;#AUTHOR: ROY SPITZER 
-SBTTL #WATCH-DOG TIMER 
7 HEHEHE HEHEHE HEHEHE EHH EI ee 


pe 
HO 
tea 


N REACHES ZERO A COMMAND 
ME-OUT WILL BE DESIGNATED IN THE PROGRAM DEVICE STATUS 
T DRIVE’S PARAMETER BLOCK. 


8 
iH 
fo) 


om 
=e 
g 

Px 
# 


gem sey TIMER WILL 
TO 8 OPERATIONS SIMULATEOUSLY. FOR SEQUENTIAL | 
OPERATIONS ONLY ONE OPERATION. WILL BE WATCHED. 


PC, W.WTCH 
RETURN IF NO ORIVE ORDER EXCEEDED ITS TIME LIMIT 


OTHERWISE AN RETURN TO ROUTINE ADDRESS 
BY Location A.ABNL WILL OCCUR AND CMDTO FLAG 


APPROPRIATE PARAMETER BLOCK WILL BE SET. 
Eiiiiccttitiiiiiietiiititiitetttititiitttttittiititttitittttr ts) 


BS 

2 
2 

Thy 
: 
Z 


F 
i 


. 
naleaaatiathediaainsl theaiashesieieielesieshesiecbesletiesletiedesesdeslesedeak 


W.WTCH: MOV RS,-(SP) sSAVE RS ON THE STACK 
MOV R4, -(SP) >SAVE R4 ON THE STACK 
MOV R3,-(SP) s SAVE R3 ON THE STACK 
MOV +76SB) STACK 
MOV -(5P) STATUS WORD ON STACK 
DEC w. ATin {DECRENENT MILLISECOND TIMER 
MOV W.MILI,W.MTIM eM 118 I THHLLYSECOND, TIMER 
ISTB W. TIME F DRIVE IS BEING TIMED 
MOV RKPRI,PS im, OUT RKO& INTERRUP 
MOV RKBAS, Re : OF RKO& REGISTERS 
DEC W. ORV *DECREMENT COMMAND TI 
BNE 20$ “RETURN IF NO TIME OUT 












RKO FORNATTER MACY11 27(1006) O3-NOV-76 :15 PAGE 76 
DZR6LB.P11 03-AUG-76 00:00 *#WATCH-DO0G Ther 










4024 032160 105037 002632 CLRB ss. TIME sRESET TIMING INDICATOR 
4025 032164 013705 G02644 MOV PELKT,RS ;LORD ADDRESS OF PORAIE TER BLOCK 
Ming 032170 O0S2765 000100 on0014 BIS #CMDTO, P.PRST(RS) - SET COMMAND Tine OUT 
ages 032176 Nai 002606 CMP RS,0.WAIT ; CHECK IF DRIVER IS WAITING FOR 
: COMMAND COMPLETION 
4030 032202 901002 SNE S$ *NO, DO NOT ALTER WAITING FOR 
4031 : COMMAND COMPLETION 
CLR 0.WAIT “CLEAR WAIT FOR COMMAND COMPLETION 
4033 10 N73 464 S$: JSR PCR. ABNL "BRANCH TO ERROR ROUTINE 
14 Ol 1 20$: MOV (SP)+, PS *RESTORE PSW 
Wbse aoee DISEDS MOV (SP )3°R REC TORE fi 
Passes O1se04 MOV (SP)+°R4 RESTORE fe 
4038 O32226 012605 MOV (SP)+°RS RESTORE RS 
4033 032230 000207 RTS PC : RETURN 











RKO Wy) FORMATTER 
OZR6LB.P11 


4064 


4095 © 





O3-NOV-76 16:15 


MACY11 27(1006) PAGE 77 
76 00:09 #RKO6 INTERRUPT SERVICE ROUTINE 
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#RKO& INTERRUPT SERVICE ROUTINE 
5 HEARSE SARIS SEER SESE SESE SEERA AE HEHE HEE HEE RHEE REE REE REPRE EE EERE 





THIS ROUTINE WILL SERVICE ALL RKO& INTERRUPTS. 


UPON RECEIVING AN INTERRUPT, THIS [ROUTINE WILL 
PERFORM ONE OF THE FOLLOWING SERVICES: 


) SERVICE PORT WAS wg BY OTHER PORT 
DRIVER IS WAIT FOR COMMAND COMPLETION 


: BLE Ga oA i Necro 


5.) if FN NSERV SERVICE 15 REGUIFED, “THE COMMAND WILL BE ISSUED 





THREE LINKS ARE PROVIDED TO THE ORIVING PROGRAM. 
THEY ARE: 


1.) A.NORM ADDRESS OF NORMAL RETURN (SUCESSFUL COMPLETION OF COMMAND) 
-) A.ABNL ADDRESS OF ABNORMAL RETURN (UNSUCESSFUL COMPLETION OF COMMAND) 
3.) A.CONT ADDRESS OF CONTROL ERROR RETURN 


FOR NORMAL AND ABNORMAL RETURNS, THE ADDRESS OF THE APPROPRIATE 
PARAMETER BLOCK WILL BE IN RS. 


FOR THE CONTROLLER ERROR RETURN, THE LOCATION E.CONT CONTAINS 
THE REASON FOR THE CONTROLLER ERROR. 


fur 


ROUTINES USED: 
C.OPT (QUEUED ONLY) 
Q.PUSH (QUEUED ONLY) 
Q.RMOV (QUEUED ONLY) 
R.CONT (SEQUENTIAL ONLY) 
R.NORM (SEQUENTIAL ONLY) 
R. (SEQUENTIAL ONLY) 
fear 
1.STAT 
I. ISSU 
1.CCLR 
KEKEA LAK LES ELE LEEK KEEL KER ELE EES EX HH K ESHER RKER LE RSE EERE LER LEE LEE 
-INTR: MOV RS,-(SP) ;STORE RS ON THE sT ACK 
MOV RY, -(5P) *STORE RY ON THE STACK 
MOV R3,-(SP) *STORE R3 ON THE STACK 
MOV R2,-(SP) *STORE Re ON THE STACK 
MOV R1,-(SP) sgTORE RI TAC 
MOV 0; -(5P) :STO THE STACK 
MOV RKBAS. Re “LOAD Re Tu SS RKO6 REGISTER 
MOV RKCS2lRe),T.CS2 ;STORE CS2 
BIT #5, T.CS2 jCHECK I If MULTIPLE DRIVE SELECT 
BEQ i ONTINUE PROCESSING 
S -MOS,E.CONT ‘Set GR TTEL DRIVE SELECT 
ISR PC.R. CONT *REPORT ERROR 











OZR6LB.P11 
032302 


4107 032334 
1 seve 
411 Ba5suq 
4111 032350 
4lle 032354 
4113 





& 


RKO& PACK FORMATTER 
03-AUG-76 00:09 


000137 





034462 
002626 


002626 


MACY11 


é7( 1006) 


000014 





1S: 


11S: 


1.100: 





O3-NOV-76 16:15 PAGE 78 
#RKOG INTERRUPT SERVICE ROUTINE 


bi 


BNE 
MOV 


grec re ie TRANSFER ERROR TYPE 


BEQ 


Ge IF_ANY DATA TRANSFER — EXISTS 









I. RTRN : RETURN 
I. ISRL ; CHECK F INTERRUPT OR “RELEASE 
6S iN ECK et ee RIVE AVAILABLE 
S$ CoE CK LEASE ¢ 

I. ISRL : YES K Ep ReLee 

1.100 :CONTINUE PROCESSING INTERRUPT 






“ FLAG 
GO PROCESS DRIVE ATTENTIONS 
CHECK FOR NON-EXISTENT DRIVE OR 
bgt CTE EARL ACCESS INTERRUPT 
NAO R R4 FOR 
KEEP DRIVE BITS 
STORE PARAMETER BLOCK ADDRESS 
LOAD TEMPORARY CSI FOR STATUS REPORT 
‘REPORT ERROR 


RKDS(R2),T.DS  ;STORE STATUS REGISTER FOR COMPARISON 
#DRA, T.D5 ; CHECK IF ORIVE SEIZED BY OTHER 


PORT 
1.100 ENO, CONTINUE PROCESSING INTERRUPT 









#NED!UFE,T.CS2 






T.CS2,R4 
8#C<DRVMSK> , RY 
PBLKT 
RKCS1(R2),T.CS1 ; 
1. ERRC 








#OLT!WCE!UPE!NEM, T. 






; INDICATE ERROR 
;STORE ERROR REGISTER 






10$ 
RKER(R2), T.ER 









ERROR 
Ki OPI!WLE!COESHVRC!BSE!ECH, T.ER 
















11$ :NO, WAIT FOR RELEASE OF RKO& DRIVE 
HE. uoAT E.CONT iSET UNEXPECTED DATA TYPE ERROR 
9 REPORT ERROR 
rf Catan RESTORE REGISTERS 
u. TIME ;RESET TIMING ON THIS DRIVE 
; CLEAR TIMING COUNT FOR THIS DRIVE 


W. ORV 
PBLKT,RS - -* LOAD RS WITH PARAMETER BLOCK 


ADDRESS 
#ORVSZD,P. pasriRd -SET ig61 DRIVE SEIZED IN THE 
IVE STATUS REGISTER 


94a WAIT sc. WAIT FOR COMMAND COMPLET ION 
TC ATRN TO Ce TORE Re PORE a CTERS 
0.WAIT,RS aa PARAMET D PARAMETER BLOCK ADDRESS INTO RS 
2s 415 ConA ITING PROCESSING 
YES PROCESSING 
I. ATTN :NO, Paocese ATTENTION 


T.CS2,R4 





;STORE RKCS2 FOR ORIVE NUMBER 











NO6b 


RKO& PACK FORMATTER MACY11 27(1006) O3-NOV-76 16:15 PAGE 79 
DZR6LB.P11  03-AUG-76 00:00 #RKO& INTERRUPT SERVICE ROUTINE 

4152 032530 042704 177770 Bic #tC<DRVMSK>,R4Y ;MASK OUT UNNECESSARY BITS 

4154 

4155 032534 126504 900000 CMPB = P.DRVN(RS),R4Y =; CHECK RIVE NUMBER IS EXPECTED 
at acEup Soho PACT 3 eS, Son ERROR 

4} 122768 000164 o00001 3s: CMPB = #RDALHD,P. seen NO, DRIVER IF READ ALL HEADERS 

4] 1002 BNE 10$ NO, EXECUTE NORMAL DATA TRANSFER 
4160 032554 000137 033112 IMP I. HDAL G0 EXECUTE SPECIAL HEADER SEQUENCE 
4i62 032560 005037 o02606 10$: CLR 0.WAIT sCLEAR WAIT FOR COMMAND COMPLETION 
4163 032564 005037 002646 CLR W.DRV *CLEAR WATCH-DOG TIME 

4164 032570 105037 002632 CLRB 3s. TIME *RESET TIMING ON THIS DRIVE 

4165 032574 016237 000000 002532 MOV RKCS1(R2) T.CS1 ;STORE COMMAND AND STATUS REGISTER 1 
4166 032602 100000 o02532 BIT #CERR,T.CS1 CHECK IF CONTROLLER ERROR 

4167 032610 001021 BNE RR YES, PR RROR 

4168 032612 016237 O00016 ones4e MOV RKASOF(R2).T.ASOE ;STORE ATTENTION SUMMARY 

wig3 13373 002633 002547 BITB NTH Sk, T. ASOF +1 ; CHECK IF DRIVE ATTENTION SET 

4171 032630 004737 035476 ISR PCR. NORM INDICAT ATE NORMAL RETURN 

dize 032634 000137 O34462 JMP I. RTRN *RESTORE REGISTERS 

diz 032640 052765 000010 o00014 15S: BIS #UEXATT,P.PRST(RS) ;SET UNEXPECTED ATTENTION 

4176 032646 004737 035132 I.ERRA: JSR PC,I.CSTS ;STORE CONTROLLER STATUS 

4177 032652 O00405 ’ BR 1.ERR STORE PATTERN AND POSITION INFORMATION 
473 032654 013765 002532 OO0016 I.ERRC: MOV T.CS1,P.CSI(RS) ;GET ERROR RKCS1 

4180 O32662 004737 035154 -” JSR pC.1.¢ST1 REST OF CONTROLLER STATUS 
4181 032666 016265 000032 O00062 I.ERR: MOV RKECPT(R2), P.EPAT(RS) : STORE ECC 

4182 032674 016265 000030 O00060 MOV RKECPS(R2),P.EPOS(RS) ;STORE ECC COST ETON 

4183 032702 004037 034500 JS 0,1.CCLR CLEAR CONTROLLER 

4184 034462 I. RTRN ‘ERROR RETURN 

Wigs 032710 032765 010400 ooD0020 BIT sNEDIUFE,P.CS2(RS) iGHeCK IF TT was NON-EXISTENT DRIVE OR 
‘4187 032716 001046 BNE S$ "YES, REPORT ERROR 

4188 032720 004037 035236 ‘JSR RO, I.STAT GATHER DRIVE STATUS 

4189 O3e7e4 y 1.RTRN “ERROR RETURN 

4150 112737 000005 002532 MOVB  #DR.CLR,T.CS1 LOAD COMMAND 

419 032734 004037 034562 ISR RO,1.1SSu j ISSUE DRIVE. CLEAR 

4igs peer ie 3709 002633 002547 ITB INTMSK,T.ASOF+1 Sheek aii TTENTION RESET 

4194 032750 001407 BEQ 2 : INDICATE DRIVE ERROR 

di 032752 052737 000020 002604 BIS #E.CLAT,E.CONT iSet ar TION DID NOT RESET 

4197 032760 004737 035510 > . JSR PC,R.CONT *REPORT CONTROLLER ERROR 

Mt 032764 000137 034462 IMP 1. RTRN GO RESTORE REGISTERS 

4 032770 032737 O40000 o025S6 23: BIT #5.DSC,T.MR2  ;CHECK IF DRIVE STATUS CHANGE CLEARED 
4201 036776 001 BEQ YES, CHECK FAULT 

052765 OO00040 000014 BIS WORVOSC,P.PRST(RS) :SET DSC DID NOT CLEAR 

4203 0367 37 001000 O02560 3S: BIT .PAR, T.MR3 s CHECK K IF DRIVE PARITY ERROR 

4o04 14 001 BEQ INDICATE ABNORMAL TERMINATION 
4205 16 052737 002604 BIS #£.DPAR,E.CONT ort DRIVE PARITY ERROR 

4206 033024 004737 035510 ISR PCR. COAT Rou CONTROLLER ERROR 

3 





re 





—_——— 





002532 I.HDAL: MOV RKCS1(R2),7.CS1 ; STORE CS1 TO CHECK CONTROLLER 


RKDG PACK FORMOTTER MACYII E7(1005) O3-NOV-76 16:15 _ PAGE Re 80 
DZRSLB.P11 O3-AUG-76 00: #RKCE INTERRUP™ SERVICE ROUTINE 
4208 
20 000020 OO0014 S$: BIT _ADRVHRO,P. PRST(RS) _; CHECK DRIVE ERROR 
i 7? 020000 002556 BIT 8S. PIP, T.MRe etc ir ban 3 VE g C eyCLING DOWN 
1 900014 Ere E -UNLO P.PRST(RE) MO SEF BRL UNLOADING 
4214 i 002632 “OVB HSK, H. TIME set UP 8 SPE ORDS FOR ORIVE TO CYCLE uP 
1S O43 002616 002646 MOV Nace’ 
‘ ig 1 INP IR RTRN ;GO RESTORE REGISTERS 
l 102 4 108: JSP PC,R.ABNL 560 REPORT ERROR 
us] neers ite pe IMP 1. RTRN G0 RESTORE REGISTERS 
4 .SBTTL #READ ALL HEADERS INTERRUPT SEQUENCE 
000000 
100000 





a55¢ 002532 BIT RR, T.CS1 SOHECK TF } 
i ay age. NO, Geek FO OR ATTENTION” ION 
CLR 0.WAIT CLEAR WAITING FOR COMMAND COMPLETE 
CLRB 4s. TIME -«SRESET T DRIVE 
CLR W. ORV s CLEAR Hin COUNT 
1 000016 HOV T.Col,P.CS1(RS) ig! aan 
15 8 Me ; CONTRQLER 
ueze ben" PC, R. ABNL TO TCATE een TURN 
JMP 1. ATRN ‘Res ee neers 
002545 SS: MOV KKASOF (RS) .T :ASOF 58 sSTORE ATTENTION 
3 Oe ee Ee 
ete Kt Otte T TIM . seca 
€LR W. ORV ite is 
tev IMP 1.ERRA 
ete 7S: MOV HOR.AD,RI .-  ;GET MAIN MEMORY 8 gooRE 
434 MOV RKDB(RE), (RII+ temo 
deve MOV RKDB(RE),(RLI+ j 
MOV = RKDB(RE) (RI)+ 
: nov “RL HOR T.cs2 } ae! ec FOR DATA LATE 
‘ psesy att wolf, Te58 : i pao 
Hood Ox Bee .cT BE OF HEADER YET TO READ 
4 ik ce Shalt ; fee WA HR ORC ae MEOMPLETION 
ues? / ORV : Tine our. FOR THIS DRIVE 
‘ dle Ns SE og APE I STER FOR CECTOR COUNT 
a iee ° 
53 502532 MOVB .SEL.1.CS1 it Oe crc “4 
4261 JSR RO, 1.ISSU : CTOR COUNT 
WEE 1. RTRN iE 
4263 000056 MOV T.R3,P.B11(RS) ;LOAD SECTOR COUNT 
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MACYI1 €7( 1008) 


DoRELB- Plt G3-AUG-76 0s 
Baise 00137 


OSes 





000014 


MNOV-76 16:15 81 
#READ ALL HEADERS IN RRUPT SEQUENCE 


ess: 


355: 


- SBTTL 


I. ATTN: 


1§: 








07 


JSR PC,.R. NORM : s INOICATE TERMINATION 

MP I. RTRN *RESTORE REGIS 

MOV P. LN (R2) Y NDER RODRESS REGISTER 
HOVE p° C re Siel(R8) Hire p-1e'6 

sic pESINIRBD Cg 81K CLERR ALL ite ae 3+ FORMAT AND 
MOVE SRDHEAD, P.CS1cRSS 3S Ste is COMMAND ISSUED 

MOV P.CSI(RS), Rresiere)® -ISSUE READ 

IMP i. RTRN sRESTORE REGISTERS 

81s fe Rant oT lone TE WHILE UNLOADING HEADER 
IMP *RESTORE REGISTERS 


*DRIVE ATTENTION SCANNER 


MOV RKCS1(R2),T.CS1 ; STORE COMMAND AND STATUS 
REGISTER 1 FOR COMPARISON 


BIT gem, 1-68 $ CHECK Aa te ATTENTION OCCURRED 


“CHECK IF ANY DATA T TYPE ERROR EXISTS 
BIT #DLT!WCE! UPE! NER eR ge 


HOV -ARER(R2),T.ER ;STORE ERROR REGISTER 


CHECK FOR DATA TRANSFER ERROR TYPE 
BI SOCK! OPI! WLE! COESHVRC!BSE!ECH, T.ER 


BEG 2g ;NO DATA TRANSFER ERROR 
BIS #8£.UDAT E.CONT ; CTED DATA TYPE ERROR 
SR PC.R. CON : 
JMP 1. RTRN sRESTORE REGISTERS 
T.CS2,R4 F NUMBER 
i, [fiom SLB BE 
Wd. 
SOV PALRY,RS ae PARAMETER BLOCK ADDRESS IN RS 
CLEAR DRIVE POSIT 0N POSITIONED FOR DATA TRANSFER 
IN DEVICE Tus Res Ist 
BIC SORVPOS! DRVPD dee sian PRST( 
IMP I. ERRC ;G0 REPORT ERROR 


BIT o CS! ves, process HITE OT TENT ION 


MOV RKASOF(R2),T. asoF a ATTENTION SUMMARY 
TSTB = T. ASOF#4 sCHECK IF ANY ATTENTIONS SET 
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#DRIVE A TENTION SCANNE' 





128: 


138: 


15S: 


16S: 





ts 


ays BEERS 8 
sae 


ae WOM 
$8 Ges 
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Byee SER 







15 PAGE 


ae. NOAT, E. CONT i cEF fp BTTENT YON ¥ SENTION SUMMGR’Y 
PCR. CONT :60 REPORT 
RTRN GO RESTORE REGISTERS 


INTHSK, T.ASOF +1 ;CHECK IF DESIRED INTERRUPT 
8E .UATT,E.CONT HET CATED TTENTION 
rane” 60 meron REGISTERS 
PELKT RS + s STORE PARAMETER BLOCK TABLE 
aE UNLO,P. P.PRST(RS nb PeuecK TF IVE UNLOADING 
- UNLD 0 TNE IN POSITION AFTER ERROR 


#ORVPOS, P. PRST( (RS) Ak ;RESET DRIVE POSITIONING 


RKAR (Re) MAI GISTER 1 
He i. Bay ees WITH ATTENTION HIGH 
LMF ol) sae tus 0 fess @ 


Hr Hi, ere oe OR ‘DRIVE tratus CHANGE 


NR2, P.ADO(RS) a MAINTENANCE REGISTER 2 
45,050, P-ROOURS) COEEK FON DRIVE 


ATUS CHANGE 
sos, P, rst ae witht DRIVE Ive sinus Gove 


#OR.CLR,T.CS1 1090 
RO, I. ay ;CLEAR IVE STATUS CHANGE 


T.ASOF,P.ASOF(RS) -ST 
INTMSK,P. ASOF +1 (RS) Greek iF ate ION RESET cos 


~CLAT,E.CONT : SENT ION MOF BID NOT RESET 
app : Lot DRIVE CLEAR 


T_RTRN PRESTORE REGISTERS 


- me P. ) ;STORE NTE INRICE REGISTER 2 
pst, P. 3 TE ceT i IVE STATUS CHANGE 


abs, P. reste Sere elve status Gi CHANGE © O10 B NOT CLEAR 


rye pee MING ON THIS ORIVE 


u. CLEAR IVE TIMING COUNT 
PCR. NORM “REPORT SUCCESSFUL COMMAND COMPLETETION 
1. RTRN *RESTORE REGISTERS 


000014 I.AERR: BIC 
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£07 
BORELB Pit atuc~76 DOsOn! © (tO0R) OR NOTION ERABR HanGcER’ 
ATTENTION ERROR HANDLER 
#DRVPDT,P.PRST(RS) ;RESET POSITIONING IN PROGRESS BECAUSE 








W. TINE ie THIS ORIVE 
8177741.P. casas! 
ty T. cei: ; ise AP Ret PER STATUS 
T. er. (R3) SBEKE 6000 He ESSA oretene 
T.BA,P.BAR(RS 
eee, 
T.ASOF.P. cRS) 
Lod 
RO, 1:STAT s GATHER DRIVE STATUS 

CLR, T.CS1 BRO CORMBND 
Hi i“ySa) fe DRIVE ERRORS 
INTMSK, T.ASOF +1 3CHECK 3 Wi I SET 
Bg ae “OnE oRRGR 
86. CLAT . CONT DID NOT RESET 
1. RTRN Oe REGISTERS 
SORVHRD,P.PRST(RS) :CHECK IF AHARD DRIVE ERROR 
4S PIP, ,T.MR2 CHECK IF DRIVE IS UNLOADING 
BE.UNLD, P.PRST(RS) iSET VE UNLOADING DUE TO ERROR 
ANCE of. fe set 0 TER OrOLE UP TIME 
4. BSE HORY ou @ Secon £9 
PCR. ABNL sREPORT ERROR 
1. ATRN *RESTORE REGISTERS 


CAUSING DRIVE TO UNLOAD 


#€.UNLD,P.PRST(RS) ;CLEAR BRIE UO UNLOADING BECAUSE OF ERROR 


Pater ee SB ste oa DRIVE “CEEAR 


re, T. asor+l CHEEK si ATTENTION CLEARED 


se-cLat,e.comt SETA 


TATRN 
#S.0SC, T.MR2 


SDRVDSC, P, Ba SET DRIVE STAUS CHANGE DID NOT CLEAR 


TIME 





ION DID NOT RESET 
sRESTORE REGISTERS 
CK IF me STAUS CHANGE RESET 


RESET TIMING ON THIS DRIVE 





r me re ee ee 








DoRELB-Pi1 3-AUc~76 Oo:08 1°? SBRROR ceusiNé BRIVE To" UNLOAD 


as 005037 002646 CLR W.ORV i CLERR TIME COUNT 
a. 004737 035464 JSR PC,R.ABNL ;REPORT Eon 
ae 1 I.RTRN: MOV (ee 8 ;REST RO 
44 12601 MOV (SP)+,R1 . sREST Rl 
“4 15e03 MOV (SP)S° RS RESTORE 
44 Bere at MOV (p37 Ra: RESTORE RY 
74 012605 MOV (SP)+,R5 sRESTORE RS 
O3S447E RTI ;RETURN 





eno ae eee eee ee eee eee 





sate ASAT. F 


a8 


aw 


re 3 
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BaRELB-Pi1 G3-AUG~76 Gorda ~~? SBoneROLCER CLEAR 8 


#CONTROLLER CLEAR ROUTINE 

5 HEHEHE IGHEIHIHHHHEEEHEE HEHEHE EES EEE 

THIS a WILL BE USED BY THE igh TO O GLERS THE CONTROLLER 
AND CHECK 


CLEARED THE 
E.CCLR SET IN E.CONT. 
REGISTER USE 


RS 


JSR 


# 
3 SEE ESE EE SE SE ESE EEE SESE EE EE EE EE EEE 
I.CCLR: 


MOV 
MOV 
BIT 


<ADDRESS oF Tn RETURN) 
RETURN 


F THE CONTROLLER ERRORS ARE RE IF _THE ERROR IS NOT 
ROUTINE AS SPECIFIED IN A. CONT WILL BE CALLED WITH 


SEE & PRB, 


#CCLR,RKCS1(R2) ;CLEAR CONTROLLER 
nce, 1c T.CS1 ; STORE COMMAND AND STATUS REGISTER 1 





$1 > CHECK F CONTROLLER CLEAR DID 
BE coun coor ET CREM tant OST Ebb enw 
PCR. : CONTROLE ER ERROR 
(RO) RO pal UP ERROR RETURN 
RO + RETURN 
#IE,RKCS1(R2)  ;SET INTERRUPT ENABLE 
8-1/1. SRL :SET INTERRUPT ENABLE ISSUED 
{R0}+ AUST FOR NORMAL RETURN 


re:-----:-:__—X——S—_—_eIEu""™’?s’"n nw —eeES—0_o03Q0uOScOVun—Xx—eV_VOVn—————————————— ey 


RKO& PACK FORMATTER 
OZR6LB.P11  03-AUG-76 


ut 


cee 


034674 000440 


Gs Ef Sete 


1 


— = — 
& f 
pang 

on Oo 


- SBTTL 


HO7 


PAGE 86 
ISSUED BY DRIVER SERVICE ROUTINE 
#COMMAND ISSUED BY DRIVER SERVICE ROUTINE 


MACY11 27(1006) O3-NOV-76 16:15 
00:09 *COMMAND 


5 ; RARRERAAELLAAALE LASALLE LAAALEEA ELLA REL ELRALA AERA EAE SAALL LAA E ES 


:# 


SSEKCAASASASZCSSASAS SS Sess 


BND CHEK TE AUEONTROLEER EREOM OOcURRES © TFB CONTROLLER 
ERROR BCCURRED ati WILL BE set IN E cont AND 

CONTROL WILL BE TURN OVER TO THE ROUTINE SPECIFIED BY THE 
ADDRESS IN A.CONT. 


REGISTER USE 


Pe ADDDRESS OF RKO& REGISTERS 
RS ADDRESS OF PARAMETER BLOCK 
ISR RO, I. ISSU 
<ADDRESS OF eheoe RETURN) 
RETURN 


ROUTINES USED: 


I.CCLR 
I.STOR 


iii tiitritiitttittttiittttiii titi ttt tt ttt tt ttt ty 


I. ISSU: 


15: 


MOV T.CS1,-(SP) ;STORE COMMAND ISSUED 
CLR T.CSe ;CLEAR TEMPORARY CS2 
MOVB P.DRVN(RS),T.CS2 ;LOAD IN DRIVE NUMBER 


MOV T.CS2,RKCSe(Re) =f FOR COMMAND 
MOVB  P.CSIA(RS),T.CS141_;STORE BITS 8-15 OF CSI 
BICB s#tC<B.CDT!8.CFNT>,T: : ALL BITS EXCEPT 
:’ F DRIVE TYPE 
MOV T.CS1,RKCS1(R2) ;ISSUE COMMAND 
ISTB RKCS1tR2) WAIT FOR READY 
ISR Be 1.STOR 3GO STORE REGISTERS 
BIT SCERR, T.CS1 5 CHECK IF CONTROLLER ERROR OCCUERED 
BIT #MDS,T.cS2 check NUL WL TIPLE DRIVE SELECT 
BEQ 24 *NO CK FOR 0 CONTROLLER ERRORS 
BIS #E.MDS.E.CONT SET MULTIPLE DRIVE SELECT FLAG 
ISR PCR. CONT *REPORT CONTROLLER ERROR 
BR 10$ ; 
“CHECK IF ANY CONTROLLER ERROR IS SET 
BIT SCTO!SPAR, T.CSI 
a #UFE!PGE!NEM!NED!UPE!WCE!DLT,T.CSe2 
BI a LC!OTYE!FMTE!ECH! BSE! HVRC! COE! DTE! OPI!DCK, T.ER 
CMPB © #DR.CLR,(SP)  ;CHECK IF CLEAR DRIVE 








PADS BACK FORMAT Rk 7 facoe 27( 1006) nbd 


rf 
: 
8 
Ge 
i 


7 


000100 o00cc0 SS: 


Peas 


001020 002604 7§: 
737 035510 


a i ae 
as 


& £ 
Sse 


——_ 


ne em eweree: oven meee ese eee 


10S: 


No’ 1se0eb By DRIVER SERVICE ROUTINE 


BNE 
ik 





DO NOT SET DRIVE HARD ERROR 
SORVHRO, P p.pastiré) | 2 FRE HAE HARD ERROR 


RO,I.CCLR ER CLEAR 

#IE.RKCS1(Re) Een LA, ENABLE 

(SP5+ “ADJUST S 

(RO)+ ADJUST Hh FOR NORMAL RETURN 

RO : RETURN 

#E.CERR.E.CONT ;SET CONTROLLER ERROR DURING 
- 3° DRIVER SERVICING 

PCAR. CONT sREPORT ERROR 

RO) , Ro sROvUST ADTUS! RO FOR. ERROR RETURN 

























RKO FORMATTER MACY11 €7(1006) O3-NOV-76 16:15 PAGE 88 
OZR6LB.P11  O3-AUG-76 00:00 *STORE RK611 UNIBUS REGISTERS 


-SBTTL #STORE RK611 UNIBUS REGISTERS 
; pienOnEnenSRAnRRERERERERRERERORERERRRERERRERORERORENERRERANONOD 


3% THIS SUBROUTINE IS CALLED BY THE RKO& DRIVER TO STORE ALL 
he RK611 REGISTER IN TEMPORARY LOCATIONS. 


t 
?#CAL PC,I.STOR 
. . RETURN sane 


7 

. REGISTER USE 
# 
* 


Re ADDRESS OF RKG11 REGISTERS 


purces (Re) .t. -CS1 ;STORE ALL CONTROLLER REGISTERS 
),T.CS2 ; EXCEPT DATA BUFFER 


a 
i 





qedeaageas 


Baas 






BAe Pas bas fas Bas hat fie fee fe pin Pes Be poe 


it 
8 
ae 


PMERMASALRR Ses ga ea aural iarcal 





e 
8 
5 
# 
<= 
SRRB 
3% 


a eg ee P 










BOREL BAL Ga HUG-76 DOSONE ee) oe Nee cBnrABiteR £78 ae. 


-SBTTL #STORE CONTROLLER STATUS 
SESE SE SESE SEE SEE EEE EEE EE EERE SE EEE HEE SEE AE EEE EEE BEE EE EEE 


THIS SUBROUTINE IS CALLED BY THE RKO& DRIVER AT PRIORITY 7. 
THE FOLLOWING REGISTERS WILL BE STORED: 


COMMAND AND STATUS REGISTER 2 







i+ 
it 
3% 
3 # 
:# 
i 
it 


S 
STATUS REGISTER 
ERROR REGISTER 
ATTENTION SUMMARY/OFFSET REGISTER 
CYLINDER ADDRESS REGISTER 


3% 
3% 

3% 

3% 

3% 

3% 

;*#CALL JSR PC,I.CSTS 
# RETURN 

;# 

3% 

;# 


THIS ROUTINE ASSUMES THE FOLLOWING REGISTERS CONTAIN: 


4 
; 
4 
4 
9 
9 
; 
I. 





is REGISTER CONTENTS 
°& 
*% R2 RKO& BASE ADDRESS 
: RS ADDRESS OF PARAMETER BLOCK 
ss EM SEE SME EARS ELE KALLE EL ESR ERER ESE EE EE SEL ELE RENE GLE KEKE EE ESLE LESS 
035132 042765 CSTS: BIC #177741,P.CS1(RS) CLEAR. alt BITS EXCEPT FUNCTION 
Beeiue pares a reek, Re (RS) SEEM UM ILON OF SS) STATUS 
035154 Bieeee 1.CST1: Bie 5p Cee (RS) ORE EATS NNBHO AND STATUS REGISTER 2 
035162 O1 MOV Se OETEeT B Laaics *STORE WORD COUNT REGISTER 
635170 01 MOV RKBA(Re),P.BAR(RS) *STORE BUS ADDRESS REGISTER 
17% Ol MOV RKDA(R2).P.DTS(RS) *STORE DESIRED T AND SE 
035204 Oibeb MOV RKDS(R2).P.DS(RS) ;STORE DRIVE STATUS REGISTER 
035212 O01 RKER(Re) 'P.ER(RS) STORE ERROR REGISTER 
035220 016265 MOV RKASOF (R2), P. ASOF (RS) sSTORE gf TENTION SUMMARY AND 
035226 016265 RKDCYL(R2),P.DCYL(RS) STORE CYLINDER ADDRESS 
035234 000207 * RETURN 


WAS AS AaaS aaa aaa AAAS AAA eee ct act 
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D -Pll 03-AUG-76 


Patt 

E555 
By 
Bo 


5 
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ss 

up28 

4p29 

ueat 

4B 32 

E33 

dese 

ue 36 

ue37 

ues 

ue40 

441 

ueu2 

ue43 

4e4d 

ue4S 

WEY 

4647 

4e4B 

ue49 

4B50 

uES1 

Weee 038295 012762 

upee | aesee 

eee Beeser 

1 Te gaeat 

Weel 035302 

a fen 

Wee 035392 

ieee Bear 

wor} Geetee 

ca 
uE73 | BSEatB 

474 

2 ee 
035410 
| 
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O3-NOV-76 16:15 PAGE 90 
#GATHER DRIVE STATUS 


.SBTTL #GATHER DRIVE STATUS 
Phere pnarceieaiep rates merece nectar coms map ace et pects ose 
+ TH TINE WILL ED TO GATHER DRIVE STATUS 
tx atte eet AND tL fF re ASSUMED THAT THE OBIVE 

HAS PREVIOUSLY BEEN SEIZED. IT RUNS AT PRIORITY 7. 
**CALL JSR RO, 1I.STAT 
t% <ADDRESS OF ERROR RETURN> 

RETURN 


THIS ROUTINE ASSUMES THE FOLLOWING REGISTERS CONTAIN: | 


REGISTER CONTENTS 

Re RKO6 BASE ADDRESS 

RS ADDRESS OF PARAMETER BLOCK 
ROUTINES USED: 

I. ISSU 


eee ee ee Ce ee weee Stee we we we we 
Looe 8 ee Ss 8 Oe OS Ee Se ES 


® HEHEHE HHHHEB HHH HHH HEHE HEHE HHH HEHEHE EH HEB HE t 


000022 I.STAT: MOV #1, RKMR1(R2) ;LOAD MAINTENANCE REGISTER 


;. FOR STATUS BYTE O1 


MOVB  #DR.SEL,T.CS1 sL 
JSR RO, 1. 1SSU :GET ay S BYTES 01 
MOV T.MR2,P.AD1(RS) “STORE STATUS BYTE O1 MESS A 
MOV T.MR3,P.B01(R5) *STORE STATUS BYTE O1 MESS B 
MOV #2, RKMRI (Re) *LOAD MAINTENANCE REGISTER 1 
> FOR STATUS BYTE 10 
erga coe BYTES 10 
35 ‘ Eran RETR 
MOV T.tWR2, P.ALOCRS) :5 STATUS 10 MESS A 
MOV T:MR3,P.BIO(RS) STORE STATUS 10 MESS B 
MOV #3, RKMRI (Re) LOAD MAINTENANCE REGISTER 
; FOR STATUS BYTE 11 
J ri seu 'GET STATUS BYTES 11 
gee D 
ae i PEROR RETURN 
MOV T.MR2,P.A11(RS) *STORE STATUS BYTE 11 MESS A 
MOV T.MR3,P.B11(R5) *STORE STATUS BYTE 11 MESS B 
CLR RKMRItR2) : I E REGISTER 1 
MOVB -&DR.SEL.T.CS1 bono cOHMAND Oe 
JSR RO, 1. ISSuU *GET sfatus RD yTES 00 
3$ “ERROR RETURN 
MOV T.MR2,P.AOD(RS) ‘STORE STATUS BYTE OO MESS A 
MOV T.MR3.P.BOO(RS) : STORE STATU BYTE 00 MESS 
BIT #5. PAR, T.MR3 "CHECK IF PARITY DETECTED BY DRIVE 
BEQ S$ :NO, RETURN NORMALLY 


1 











DOZR6LB.P11 03-AUG-76 *#GATHER BRIV “STATUS 


27 000 o02604 Bis #E.DPAR,E. CONT s INDICATE BAD PARITY DETECTED BY DRI 
uEeS Bacuae pO473> Boesto FeO IREPORT ERROR hs 

000 38: MOV (RO), RO OAD RO FOR RERROR RETURN 
RTS RO LOAD 


O354Se 052765 001000 O00014 SS: BIS #PBSVAL,P.PRST(RS) set PARAMETER BLOCK STATUS VALID 
035460 905720 . TST (RO)+ eyieT RO FOR NORMAL RETURN 
O3546e 000200 RTS RO RETU 


seb eRg one 


| PACK FORMATTER 7 facae: 27(1006) O3-NOV-76 16:15 PAGE 91 
| 


ESD SS ON 





RKO& PACK FORMATTER 
OZR6LB.P11 


Bseq70 b09777 
000207 


4691 


035474 
035476 


MACY11 é7 


O3-AUG-76 00:09 


105037 0026 
004777 


105037 
105037 
005037 
004777 
000207 


002633 
145104 


33 
145070 


002632 
002646 
145052 


O3-NOV-76 16:1 
*COMMON VER RETURNS bs 


-SBTTL 
R.ABNL: CLRB 
JSR 


R.NORM: CLRB 


R.CONT: cre 


*COMMON DRIVER RETURNS 


INTMSK 
PC, dA. ABNL 
PC 


W. : 
PC, dA.CONT 
PC 


EAR TIMING C 
_ZINDICATE CONTROLLER ERROR RETURN 
; RETURN 








NHIBIT FUTURE DRIVE INTERRUPT REPORTING 
NO ae ABNORMAL RETURN 

NHIBIT FUTURE DRIVE INTERRUPT REPORTING 
porcare NORMAL RETURN 


; INHIBIT FUTURE DRIVE INTERRUPT REPORTING 
sRESET WATCH DOG TIMING om THIS DRIVE 
3CL NG COUNT FOR THIS DRIVE 


er ee re ae 
' 


RADE PROK FORMATTER 





MACY E7C1S06) O3-NOV-76 





DZRELB. P13 


G3-RUG-76 00: 


tide 








@COMMAND IN 
.SBTTL  *COMMAND INITATOR 

| pease neg sas gaat ale 0 pati atete trata he est Naat 
te THI TINE WILL INITIATE ALL COMMANDS AS SPECIFIED 
+4 BY Fue OMAR * Fits i The BeRane ER BLOCK. THE FCLOWING 
i SPECIAL COMMAND ARE ALSO EXECUTED: 

te RELEASE 

:# CONROLLER CLEAR 

ee ge 

i cf eg SEAGER 

:@ THE ABOVE COMMANDS ARE TRANSLATED INTO A SEGUENCE OF COMMANDS 
:#CALL JSR PC,C.INIT 

:# <RDDRESS OF PARAMETER BLOCK? 

3 RETURN 

,* 

te FOR THE SEQUENTIAL OPERATIONS, THE DRIVER WILL LOAD THE 

i LOCATIONS, PBLKT AND INTMSK. 

:# ROUTINES USED: 

3% W.WTCH 

3% [sie 

st -STA 

3% o 

Hd 


5s PERKS LELELELLLSLEEAESELELLLLL SE SELLER ALELALLLLLE LASALLE SEES 


oO - 
ee 

=z 
a 

= 

fa 





10646 RS,-(SP) sSTORE RS ON STACK 

ioa4e NOY ORS’ =CSP> TORE Ra on stack 

Deb Soy R2,-(SP) : TORE Re ON TACK 

101 MOV R1}-(SP) *STORE STACK 

1 MOV RO,-(P) ig! ON ST; 

i 177776 MOY ORRPRI-PS Pook ns I ERRUPTS 

Be HE ome =| HSE ne rpg om Wor 
MOV P.ORVN(RS) RY 3S ORIVE NUMBER 

| BG RECO sR +080 PR BLOCK TABLE 

1164 002633 Hove FOR cee, rns; Logo I nRSK 

1164 N06 32 “DRV(RY) Wd. TIME :SET WATCH-DOG TIMER FLAG 

13737 002614 002646 MOV WW. SEC, W.DRV LOAD WATCH-D0G TIME 

013702 002570 MOY RKBAS, R2 sLOAD R2 WITH RKO& ADDRESS BASE 


Ss fn Enocnret DEVICE STATUS REGISTER EXCEPT 





IT 
VE 
TE 





4735 


SeSgBeRRSeRenadee 


eb - b+ b= es 


wre 


Ttatatad 
NOs 


— ee 


FORMATTER 
4l 


03-AUG-76 00 


035634 O42765 


42 01 
44 
1 
1 


1 


075176 900014 


005016 


000117 





000001 


macys 27( 1006) 0 


1$: ) 








“NOV-76_ | 
COMMAND INITATOR 


Bic 


CMPB 
BLO 


Bgang S8agg SEEgens 











CO8 


:15 PAGE 94 


atC<DRVUSE!W. WOK! NOCHK! DRPDRV!DTBAII> ,P.PRST(AS) 


wcs1,ro | featcy danse 


ee Bar, Me oy Bic Acan TR Bo 


Ro, Rl 5 ae fF FINISHED 
i : ae NISHED 
Sates = FEUER ce neg cael 1 


a /P. ae # see COMMAND 
SPEC 310, TO SPECIAL COMMAND PROCESSOR 
#UNLOAD, P. CHND(RS) F POSITIONING COMMAND 
Efren se NDLE 


acer 





SET,P.CHND (RS) ;CHECK IF etd! 


e io 


FOR UNLOAD 
RKASOF ( A. an — 








seeriabl macy 27( 1006) 03 Nov. SNOV-7E 1b: 16. pace 0 



























To : a es: le EASE MAO cole Moth EE ere 
l | ee BIC #tCcCEMT#CD tbs °B H1tRe) 810 iP grt? oF FORMAT 

: 10006 MOVE P.CMND(RS).P.CS1ERS) eka INTO C81 

BIC #W.WCK,P.PRST(RS) ;RESET WRITE FOR WRITE CHECK 

b114 I 8NOCHK,P.PRST(RS) CK_IN CHECK, RODE 
Bist ONetEE Be nig, im i HIOERGUPT ENILE a 
tk tt ; 
met be at ios: JoeB rahi pean ac DOG. TIMER 
eats ue go2532 sid mr LT. .CS1 ; STORE COPED TATUS REGISTER 1 
Bish BBiol, 200000 onesse ete Fir <8 RORAAL RETURN 

Bel% 4 ge 


So 
gay 
Pe 
ae 
“BS 
e 
tbe 
Rap 
5 
£ 
36 


re 
wee 
=r 
i 
§ 
coal 
ae 
Bon 
Le 
z 
w 
3 
a 


“is INISHED 
TERS 


TRN 
-BALO(RS) RKBA(R2) ;LOAD REGISTER 
= LOAD COUNT REGISTER 


25s : : 
BH.WCK, \P.PRST(RSS CHECK Soren SHOULD BE . ISSUED 


ino; 5 
SWRDATA,P.CSI(RS) 31 frre commen 
26S 3G0'I COMMAND 
ess: P.CMND(RS).P. cs (RS) -MOVE COMMAND I 
sid TE FOR unit “BrecK 


NNSoO 
@ 
o 
ie) 


z — 
3 
S Beaadsese 8 
© aa 
Us 
josef 
ae 
as 
a 
z 
‘4 





$ 0000 1 
ee i 26S P.CSIHIRS) P. t Lice. BITS OF CS1 
1 1 te BiCee CPRTIB: cot! i8. Balle. BAI?» P.CS1 141 (RS) CLEAR ALL BITS EXCEPT 
ve TYPE, AND BUS ADCRESS 
1 000014 / i ssl tr noi os Eten BUS P AODRESS INCREMENT 
oooc20 00020 - BI 1,P.CS2(RS) NIB? BUS ADDRESS INCREMENT 
BOND poouly Bi ey Ty ig hpeeael _oy: 
01 yt B38008 30S: OV ae Tikes Ares cid Siok totes EweLE 
000137 037404 InP «CLR Rest REGISTERS 
-SBTTL  #SPECIAL COMMAND PROCESSING 
036424 122765 O00141 000001 C.SPEC: CMPB § sRDSTAT,P.CMND(RS) ;CHECK IF READ ORIVE STATUS 


- * 
a Ra a 
' 
MWCcmMancd Mand 
~~ + + 








E08 
BORELB PLL OS-AUG=75 DOSNT eee eee COMMAND PROCESCENG 





1 BNE 0 COMMANDS 

pth a po 00001 MOV $8 --¢Rs) RKCS2 i? Long 632 roar COMMAND 

1 900007 90001 MOVE  P.CSIH(RS).P.C 2(fe (RS) ;STORE BITS eB 18 OF cst 
4 165777 000016 BIC etc MT COTS © B cs (RS) AGhEAR ALL ITS EXCEPT FORMAT 
3 Lae ids ieee 
aes nooo, ist pt ae 1h “S10 Aa ee STATUS REG. 1 

00001 att #RDY,P.CS1¢ Yee part FOR READY 
4e84 BEQ 2s 
= * pels £7 dl Fessace 
reat MOV RKMR3(R2)’P. Sit T aTAT 
4388 000016 BIT : »P.CSICRS) ; 
4890 CLRB sd. TIME acre WATCH D Ce Tine ON THIS DRIVE 
4891 CLR W.ORV *CLE 
dex 000014 be BHOCHK, ,P.PRST(RSS Pg Be IF" NO CHECK ODE 
4esy ooo020 BI 8MDS,P.CS2(RS) axe I VE SE te CT 
yeas BNE oS ee. He fue Poe DRIVE ERROR 
ues? eoAreN fort CCLR scene 
4898 oo0020 Bit WNED!UFE,P.cS2(R5) 5 CHECK F NON-EXISTENT DRIVE OR UNIT FIELD ERROR 
4300 000036 BIT g0RA,P. -DS(RS) ;CHECK IF DRIVE AVAILIABLE 
wou 000014 BNE #ORVSZD,P p.PRST(RS) SER bie DRIVE IS SEIZED BY OTHER PORT 
4903 cs: ISR PC.R. ARAL ABNORMAL RETURN 
4904 IMP C.RTRN sANOicar REGISTERS 
Se E 6S: ISR RO,1.STAT GA IVE STATUS 
4908 CLRB so. TIME STOP WATCH-DOG TIMING ON DRIVE 
4999 CLR W.DRV SET WATCH-DOG TIME 
4910 000014 BIT SNOCHK,P. —— *CHECK IF NO CHECK MODE 
4911 . BEQ gg sNO EE BOAT 
491 CLR RKCS1( >CLEAR I ENABLE 
431 8S: ISR PCR. * REPORT 
4314 IMP C.RTRN sRESTORE REGISTERS 
491 002604 9S BIS #E.MOS,E.CONT  ;SET MULTIPLE DRIVE SELECT 
491 ISR PCR. CONT s INDICATE CONTROLLER ERROR 
4318 IMP C.RTRN 
4920 000001 10S:  CMPB  SRELEAS,P. CHORE) toh tes IF RELEASE C COMMAND, 
4921 QNE 138 IF 
ie MOV ,0.WAIT S¥bq PERAPETER BL ETER BLOCK aboneee IN 
4924 BIS P.CS2(RS) i BIT 
4325 I MOV peceecass axcse (Aa) sL FOR DESELECT 
13eb Hove 81.1. ISRL i T FLAG F ; 
i I P.CSIH(RS),.P.CSI41(RS);STORE BITS 8-15 OF CSI 

4928 036764 042765 165777 000016 BIC wiC<CFMTICOT) ,P.CSI(RS) ;CLEAR ALL BITS EXCEPT FORMAT 
4929 ; AND DRIVE TYPE 
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RKO& ws FORNATTER MACY11 27(1006) 
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—s 
“4 
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HEADERS 
ER CLEAR 
COMMAND COMMPLETION 


{CHECK IF G2 SECTOR. FORNANT 


"CONTROCL 


0TH SECTOR COUNT 


utig 
— = xr 
Bes ns BOsge Ne 
MoO om ad 
“ww "Sy WSs 
Dip eo = oo 4 "Se eecsace 
= se 
eee & & 
qe -—-— _ ° 
Ex os J i ] 
gemide Sard lege 
2,20 2 
sngeae Evsatese 


EE 
ot 
as ma 
css Beco 


000164 000001 13%: 





S OF CS1 


e 
x 
3 
2 


g 
4 
: 
= 


CK _IF SUBSYSTEM CLEAR 
CONTROLLER 


NUMBER 
NUMBER 
TS 8-1 
BIT 
C 

" CHECK 
LLEGAL 
HEADER 

STERS 
CHECK IF CONTROLLER CLEAR 


3 


cree 
Bote) 


000176 000001 30S: 


gEEE & 


f 
: 


: 
o 
nas 
& 
@ 
é 


ae Cate 
atagibery mo S Boos Sate of a ge 
gg e-Fned See “thee Bonaeeg 2°. 
Sere pip BY o oe “SB enenee emencace ee Sesesenes cook 
eaitn fb me. 
oa —<G ‘ oO 4 e . ; Hos & *, 
ge epee 8 ose, eu 8, 52 
3 ‘ Prd an - at = a 
aaeee geet Sas debs ot ie i 


gevecr oc @ cds 8 
lau 
‘é She SSx 

E 


BBSBee Shwak 


TEM 


IVER COMMAND 


;RESTORE REGISTERS 


g 
é 
« 
2 
5 
i 
Z 
wo 


— 
uy 
we 
: 

w 

Oo 
- S 
ca =O 
=a 


: 
i 


is 
: 
@ 
betes & 

a 
pacera® 


SSUE SUBSYSTEM CLEAR 


= EGS%— SSESS fg 


MOV 
MOV 


36$ 
37S: 


002612 


SEs Sof — = mS 


BNR BFHRY BE 


oe Rts Ree Keen Bee sot aun Keun Nae Kn 


BEES BEER Bs 


SS: BESS GES 68 


037312 016265 000000 O00016 38%: 


PopegTSeVeEeEEyeees OUOy ReEpOERURTOUNET QR EST OR SET eTIee 





} 
| 
' 
; 


| 


ae nm a ee nnn +e en ee eee ee 








RKOG 
OZR6LB.P11 


000010 


SnB-8Ree 
Rar es 
+ 


<= 


000067 


4 
- 
4991 
4o33 037344 004737 035510 
dae 037350 000415 
i es 101 vaalowe 
4999 1 77777 
se Has Were Babe 
5003 ea i77776 
Be Bau flee 
S005 037414 ean 
Be Bau ties 
012605 
apie 037424 000207 
apis 
501 
ae 
ai 
5017 
ai 
5020 
case 
is 
ae 10046 
SS ars fs 
cose 
S034 
; 
epae 


seanddis aaa 


BRER 
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*SPECIAL COMMAND PROCESSING 


BiT WOI,P.CS1(RS) | ;CHECK IF ATTENTIONS CLEARED 
BEQ 393 “YES INISH COMMAND 
DEC (SP) *DECREMENT 16 MILISECOND COUNT 
BNE 38S i CHECK DRIVE INTERRUPT AGAIN 
S (SP)+ ‘ADJUST 
BIS #E.SCLR,E.CONT ;SET SupsySTEN CLEAR DID NCT CLEAR 
¢ a IONS 
ISR PC,R. CONT : 
BR C.RTRN ‘RESTORE REGISTER 
398: TST (SP)+ “ADJUST STACK 
BIT #NOCHK,P.PRST(RS) :CHECK IF NO CHECK MODE 
BNE C.RTRN sYES, RESTORE REGISTERS 
MOVB I *SET INTERRUPT ENABLE SET 
MOV #IE;RKCS1(R2) 3SET INTERRUPT ENABL 
40$: JSR PC,R.NORM : INDICATE NORMAL TERMINATION 
C.RTRN: MOV (SP)+,PS sRESTORE PSW 
MOV (SP)+;RO *RESTORE RO 
MOV (SP)+/R1 RESTORE Ri 
MOV (5P)+°R2 *RESTORE Re 
MOV (5P)+,R3 RESTORE RO 
MOV (SP)+,R4 *RESTORE RY 
MOV (5P)+°RS ;RESTORE RS 
RTS PC * RETURN 
.SBTTL OCTAL TO BINARY CONVERSION ROUTINE 


fp LEHLLLAERE LAL EELLLELLALELE RELL LALA LELE SELLA EAA SLALALAARALLRELE 


2 
$i THIS ROUTINE WILL CHECK A STRING OF ASCII CHARACTERS TERMINATED 
2 WET BORO cB Se eounA® IF THE CHARACTERS ARE LEGAL 
* IT WILL GENERATE TWO BINARY WORDS PLACING THE LOW 16 BITS 
i ON THE STACK AND THE HIGH 16 BITS IN LOCATION SHIOCT. 
& 
3 #CALL 
i MOV <ADDRESS OF ASCII STRING) ,-(SP) 
* JSR PC, OCTBIN 
2 <ADDRESS OF ERROR RETURN 
# RETURN 
ii iitiiitiiitiititiitttiiiittitiiitiittrittitt ttt tt ttt 
OCTBIN: MOV RO, -(SP) ;SAVE RO 

my ee; ie 

RatsPy Ro 3GET ADDRESS OF ASCII STRING 





CLEAR DATA WORDS 





me nn a ae ee 





RKO& 


Se ee ea 









F 


ee 


1 


~ 


Guus ices: 


3 


177770 — 


000010 
037560 


001157 


000011 
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OCTAL TO BINARY CONVERSION ROUTINE 
Ri 


ASL 
ROL 
ASL 
ROL 
ASL 
ROL 
SIC 
ADD 
BR 
3$: TST 
MOV 
MOV 
MOV 
MOV 
MOV 
ADD 
RTS 
4$: TST 
MOV 
MOV 
MOV 
MOV 
RTS 
SHIOCT: .WORD 
-SBTTL TYPE RO 
j BROUTINE T 
s #NOTE 
3 ¥NO 
; #NCTES 
3% 
:#0R 
3% TYPE 
;# MESADR 
5% 
STYPE: isre 
oe HALT 
BR 
18: MOV 
MOV 
es: MOVB 
ch 
605: MOV 
33: ADD 
RTI 
4§: CMPB 
BEQ 


ReGen 


ae 


enka an tanee | Bet tant 


Nat BZAZR 


fe 


wo 
uv 


2 
% 


- 9 


SSS 


UD 
Cid ie | 

Co 

-— -! 


tet: 
4 


“8 


ag 
“BPRSS 


ee ee 
—++++ 


@8 


Row wa 


om iant “and 
Beeag 
owes 


= 
4 
Ld 
-~ 
G 
_ 


UTINE 
7 JHB HEHEHE 


s#CALL: 
3#1) USING A TRAP INSTRUCTION 
.% TYPE » MESADR 


a 
o> 


é. 
3 





; #2 
3; #4 
; #8 


;STRIP THE ASCII JUNK 
;ADD THIS DIGIT 


“CLEAN PARTIAL FROM STACK 
> SAVE RESULT 


;CLEAN UP PARTIAL FROM STACK 
;RESTORE Re 

;RESTORE Ri 

;RESTORE RO 

;PUT ADDRESS OF ERROR ROUTINE ON STACK 
;G0 PROCESS ERROR 

;HIGH ORDER BITS GO HERE 


ERAAARRLLL LALLA ALES 


;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


331S THERE A TERMINAL? 
33BR iF YES 
;;HALT HERE IF NO TERMINAL 


PUSH CHARACTER TO 

>:BR IF IT ISN'T THE TERMINATOR 
stIF TERHINATOR POP 

; sRESTORE ag 

ssADJUST RETURN PC 


BRANCH IF <HT> 
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YPE ROUTINE 

cnes HORLF, (SP) s;BRANCH IF NOT <CRLF> 
TST (SP)+ 3;POP_ <CR><LF> EQUIV 
TYPE *: TYPE A CR BND PY 
CLRB § SCHARCNT +s CLEAR CHARACTER COUNT 

cs: Fee Be STYPEC i, Ee This i TER 

6S: CHP Sr ILLC, (SP)+ i318 I TIME FOR FILLER CHARS. ? 
MOV SNULL,-(SP) i3GET # OF FILLER CHARS. NEEDED 

7$ DECB «AC SP) >;DOES A NULL NEED TO BE TYPED? 
BOBS gtvpec ams 
DECB SCHARCNT ::D0 NOT COUNT AS A COUNT 
BR 7$ > sLOOP 

sHORIZONTAL TAB PROCESSOR 

gs: HOV #’ , (SP) s REPLACE TAB WITH SPACE 

‘ BITB 87; SCHARCNT :? BRANCH if s a AT 

BNE +: TAB STOP 
a A Sore 

STYPEC: ise gsTPS *:WAIT UNTIL PRINTER IS READY 
MOVB  2(SP) asTPB ;;LOAD CHAR TO BE TYPED INTO DATA REG. 
CMPB ss #CR, 2 SP) *:1S CHARACTER A CARRIAGE RETURN? 
BNE 1$ ;;BRANCH IF NO 
CLRB SCHORCNT i YESU-CLEAR CHARACTER COUNT 

1S: BhpB ts PEN sp) ae CHARACTER A LINE FEED? 
BEQ STYPEX ::BRANCH IF YES 

(PC)+ ;;COUNT THE 
SCHARCH i, HORD g. He TER COUNT STORAGE 


.SBTTL DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 
Fy HRELELSELRELSALSLEEESS SS LELRERE LSEESSKAS RELA MAES LGA RASS EERE EK EX 
THIS ROUTINE WILL CONVERT A 32-BIT UNSIGNED BINARY NUMBER TO AN 
UNSIGNED OCTAL ASCIZ NUMBER. 
£ 
: MOV #PNTR, -(SP) ssPOINTER TO LOW WORD OF BINARY NUMBER 
: SOOT THE ROUTINE , 
>: THE- ADDRESS OF THE FIRST ASCIZ CHAR. IS ON THE STACK 
$DB20: SAVREG ;;SAVE ALL REGISTERS 
MOV *:PICKUP THE POINTER TO LOW WORD 

> :POIN DATA TABLE 

CHARACTERS 
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unt 
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BUERE 
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SUVS U FUTUR CPTI ICT ICICI UIE: 
eee ee ee ee ee he ee 2 eb se Be hs fn ee he ee 


Seieaesnens 
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SHLFESLRN 





O3-NOV-76 16:15 PAGE 10} 
DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 


MOV (R1)+,R1 : HIGH WORD 
1S Sie «BS. crs) STP ENARRETER IN DATA TABLE 

MOV RO,Re et ite ASTETT 

RY *:COUNT THIS CHARACTER 
GT 3$ ::BR I NOT THE LAST DIGIT 
oe 37 6R F ITIST IGIT 

NC *3ALL br IT -AD POINTER FOR FIRST 

MOV RS,2(SP) ssASCI IT ON THE STACK 

RESREG ::RESTORE ALL 

RTS 4" ;;RETURN TO 
2S: ASR POSITION THE MASK FOR THE LAST DIGIT 
38: ROR Ri POSITION THE BINARY NUMBER FOR 

ROR RO He THE Nex? OCTAL DIGIT 

ROR Ri 

ROR RO 

ROR Ri 

ROR 

BIC R3,R2 ;;MASK OUT ALL JUNK 

ADD #°6,R2 ::MAKE THIS CHAR. ASCII 

BR 1$ ::G0 PUT IT IN THE DATA TABLE 
SOCTVL: .BLKB 14 *:RESERVE DATA T 


-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


55 SE SESE AE SESE SEE ESE SE SE SE AE EEE ESE AEE AE SESE SEE HEE HE SEE EE REE EERE 
s#THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
;#OCTAL (ASCII) NUMBER AND TYPE IT 


3 gman ail HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
e MOV NUM, -(SP) ;;NUMBER T0_BE TYPED 

3% TYPOS ;;CALL_FOR TYPEOUT 

# -BYTE N 3;N=1 TO 8 FOR NUMBER OF DIGITS TO TYPE 

FI -BYTE MM 3;M=1 OR . 

3% 3; 1=TYPE LEADING ZEROS 

3% ;;Q=SUPPRESS LEADING ZEROS 

b J 


#STYPOS OR STYPOC 
* #CALL 


te MOV.—sNUM, -(SP) s ;NUMBER TO BE TYPED 

# TYPON ssCALL FOR TYPEOUT 

j #STYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

i MOV NUM, (SP) ;;NUMBER TO BE TYPED 

+ TYPOC ::CALL FOR TYPEOUT 

STYPOS: MOV a(SP), -(SP) ::PICKUP THE MODE 
MOVB 1(5P} »$OFILL *:LOAD ZERO FILL SHITCH 
Aad 8 AC See $30 byuSt URN ABORESS " 

STYPOC: MOVB &1,SOFILL s:SET THE ZERO FILL SWITCH 
MOVB e's +1 *:SET FOR 1X6) DIGITS 

STYPON: MOVB #5, SOCN >:SET THE ITERATION COUNT 
MOV R3,-(SP) SAVE R3 
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Hf 
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eee 
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ase 
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++ 


E 


stata 
A 


Gee 


8 
B 


Be 


3 


Ree 


oooose o00004 


io 
be feo 
o 
— 
ov 


BORA S Seao Paes Sam ROTM N OORY 
Eases 


3 


pea 


Re 


MOV RY, -(SP) 
MOV RS; -(SP) 
MOVB  S$OMODE+1,R4 
G RY 
D #6,R4 
MOVB R4. SOMODE 
MOVB Sof ILL, Ra 
MOV 12(5P);RS 
CLR R3 
1S: ROL RS 
BR 35 
2s ROL RS 
ROL RS 
ROL RS 
MOV RS5,R3 
3$ ROL R3 
DECB SOMODE 
BPL 7§ 
BIC #177770,R3 
NE 4§ 
TST RY 
BEQ S$ 
4S; INC RY 
BIS #’0,R3 
cS: BIS #’ 'R3 
MOVB R38 
TYPE a$ 
7 cB -« SOCNT 
T 25 
BLT 6S 
INC RY 
BR 2s 
6S: MOV (SP)+,RS 
MOV (5P)4;R4 
MOV (SP)+,R3 
MOV 2(SP)'4(SP) 
MOV (SP)+) (SP) 
RTI 
8S BYTE 0 


poor oe 
SOMODE: .WORD O 


-SBTTL_ ERROR HANDLER ROUTINE 





:sSAVE RY 
> ;SAVE RS 

‘GET THE NUMBER OF DIGITS TO TYPE 
;;SUBTRACT IT FOR MAX. ALLOWED 
Hees ti saz 

+ BT cKUP THE INPUT NUMBER | 
*:CLEAR THE OUTPUT WORD , 
;;ROTATE MSB INTO “C™ “oy ’ 


:SEORM THIS DIGIT 


He OF THIS DIGIT 
ss IS DIGIT? 
OF 


18 
< 


on 
+ 
“vi 
3 
Oo 


= 
- 

a 

5 

w 

8 


er ray ANYMORE 0’S 


aaa 
= 
=2 
: 


ee 
3 
Zo 
w 
2 
S 


3;RES 
SET STACK FOR RETURNING 


; RETURN 

3;STORAGE FOR ASCII DIGIT 
FOR ee ROUTINE 

Wee UNT 

3;ZERO FILL SWITCH 

;;NUMBER OF DIGITS TO TYPE 


¢ s LELELELALALSLELLLALLLLLLLLLALALLLALARARAELLLLLA LALA ELALLAAAALEE 


’ 
ius FUE ERROR TTEN NUMGER AND THE ADDRESS OF THE ERROR CALL 
*AND GO TO TYPERR 3 


; -ON ERROR 
jATHE SHITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 








RKO& PACK FORMATTER ing tS €7(1008) O3-NOV-76 16:15 PAGE 103 
OZR6LB.P11  O3-AUG-76 OD: ERROR HANDLER ROUTINE 


S266 


5267 040350 SERROR: : +. » owen 
Ripses 18239 001103 7$: ff g SERFLG Hoe ERRO NCE Ai 
MIOSER DLAeee 4oss4 Boy g Lay :! Gon ter CTE eae OND ESRCR FLAG 
Rupsee Baseee BRLARS tise uty HiT » ser HIBECL Oh oh (ERROR? 
040374 001402 BEQ 
hn a? eee 
il HO111 ; MOV tEB FeRRPC LOLI RROR ENSTRUCTION 
O4l2 162737 Go00002 001116 SUB #2, SERRPC 
040420 117737 140472 001114 MOVB astnnec SITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
OONe 032777 020000 140504 BIT BIT13, aSWR *:SKIP TYPEOUT IF SET 
001004 BNE 3 ;5KIP_ TYPEOUTS 
040436 004737 ISR PC, TYPERR ::GO TO USER ERROR ROUTINE 
104401 001267 al TYPE  ,SCRLF 
005777 140466 2s: TST aSWR ;;HALT ON ERROR 
100002 BPL 3$ 33SKIP IF CONTINUE 
000000 T T ON ERROR! 


TEST FOR CHANGE IN SOFT-SWR 
1404S2 35: BIT + at et ;;LOOP ON ERROR SWITCH SET? 


pamesseeanii 
ce 
: 


iil piensa hcee Men eA CHA Ete ee RRB ANAC 


001402 BEQ ;3BR_IF NO 
O137 16 001110 SLPERR, (SP) *FUDGE RETURN FOR LOOPING 
001 4S: TST SESCAPE SE CHECK FOR AN ESCAPE ADDRESS 
001402 BEQ c$ *BR IF NONE 
013716 001260 - MOV SESCAPE, (SP) tT FUDGE RETURN ADDRESS FOR ESCAPE 
oo0002 RTI ; sRETURN 
.SBTTL TTY INPUT ROUTINE 
g2 ager ygggpeseinanecions “sete alee ceecerameen cram 
040510 op0000 $TKCNT: .WORD 0 ;;NUMBER OF ITEMS IN QUEUE 
pu0s1e 000000 STKGIN: .WORD O :: INPUT POINTER 
14 000000 STKQOUT: .WORD 0 $OUTPUT POINTER 
040516 000001 STKGSRT: .BLKB 1 Y KEYBOARD QUEUE 
040517 KQEND= 
040520 VEN 
s#TK INITIALIZE ROUTINE 
*#THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
03 *#SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 
2310 CALL: 
5312 2% JSR PC, STKINT 
313 + RETURN 
5315 o40S20 005037 040510 STKINT: CLR STKCNT s;CLEAR COUNT OF ITEMS IN QUEUE 
5316 O40S24 012737 O40516 oO40S12 MOV #STKOSRT,STKQIN ;;MOVE THE STARTING ADDRESS OF THE 
5317 O40S3s2 013737 O405i2 O40514 MOV STKQIN, STKQOUT +$;QUEUE INTO THE INPUT & OUTPUT POINTERS. 
5318 O40540 012737 040570 oo00060 MOV #STKSRYV STKVEC INITIALIZE THE KEYBOARD VECTOR 
6319 O40546 012737 000200 000062 MOV 200 aatKVE “BR” LEVEL 4 
6320 040554 005777 140366 TST i ECLEAR DONE FLAG 
5321 040560 012777 OO010D 140356 MOV #100, aSTKS ENABLE TTY KEYBOARD INTERRUPT 
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S3e2 O40566 000207 





2 
Be 
$329 
5330 
Ba pe ure is 
Be ee fie 
5335 040606 104401 041766 
ese? miele Oosree 040S20 
Se bee Bie Gui? 
pote 
a bie 001500 ee 
BS ERS cere cco 
Be fae fee coe 
5349 pipes 000451 
5350 Oelbe7 000023 
So ae 
= DNDE?E 102797 140242 
See 
BS fen uot pe 
Be hee fee, Ome 
Sa pi Ss 12777 000100 
Se ies bo Sars 
Re ee be om 
5367 040752 042716 O00040 
Gi bee Wee Gis 
0S1 
5371 040774 001003 
5373 payee SE 040516 
5375 


MACY11 27(1006) 


001140 


040510 


140214 


040517 
040512 
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TTY INPUT ROUTINE 


;#TK SERVICE ROUTINE 
S*THIS ROUTINE WILL 
ero iie T 


; *BY 
;#IT 


RTS 


PC 


LL SERVICE THE TTY KEYBOARD INTERRUPT 

HE CHARACTER FROM THE INPUT BUFFER AND PUTTING 
R 
T 








;;RETURN TO CALLER 


;#IF THE THE RAE TE IS A “CONTROL-C” (#C) STKINT IS CALLED AND 
:#UPON RETURN EXIT IS MADE TO THE “CONTROL-C” RESTART ADDRESS (START) 
essen MOVB TKB, -(SP) 5 PICKUP THE CHARACTER 
BIC aero (SP) *:STRIP THE JUNK 
cn #26} ),#3 ie tt ITA CONTROL c? 
Tek POC STKINT bis j KEYBOARD 
TST (SP}+ iE tz Sener 
IMP START *:CONTROL C RESTART 
‘1S: cHP (SP), 47 i315 11 A CONTROL G? 
CMP #SWREG, SWR 3315 SOFT-SWR SELECTED? 
BEQ 63 :G0 TO SWR CHANGE 
2s: 
CMP #1, STKCNT 3318 THE QUEUE FULL? 
BNE 3 “BRANCH IF_NO 
TYPE BELL tRING THE TTY BELL 
TST teP+ si CLRN CHARACTER OFF OF STACK 
ac a Pe a ae 
Re HASHES A ep page emer 
318: STB  <a$TKS *:WAIT FOR A CHAR 
OB aug -(SP) SLOG UNTIL ITS THERE 
BI ##C17?, (SP) >:MAKE IT 7-BIT ASCII 
CHP SP)+, bel 2315 IT A CONTROL~G? 
Mav #100, 2STKS sFRESNERLE TTY KEYBOARD INTERRUPTS 
323: INC STKCNT 3 ;COUNT THIS CHARACTER 
cp (SP), #140 $3 2 IT ape yuPPeR. SE? 
CMP (SP), #175 21S IT A SPECIAL CHAR? 
BGT 4s j BRANCH IF FOAES og seal 
4g: MOVB (S054 aSTKaIN : AND Put TT Boome 
ine SrKalh, #STKQEND 160 Orr : THE ENO 







BNE 
MOV #STKQSRT, STKQIN Prep” THE BOINTER 
cs: RTI : : RETURN 


Tec tyene gringo stv? go teaaaeematteniatmeens 
;¥SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 
tFROUTINE IS ENTERED FROM THE TRYP HANDLER, AND WILL 


POT SOT SOT OT OEY OT OO OO OY SOE OY SOT SPT OPT OY OPT OPT OO OEE OPT OPT OPT OPT OST Oy 
Oh the he hn bn ph pe 2 
HeWetet ttt 
bia of on) 


NewLosoe Re PS 


S22 VSLESSS LPLLLLSSS SS SESSAS SE? SEP SELP 


a on 
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000176 001140 


re our’ 16:15 PAGE 105 
TTY INPUT ROUTINE 


;*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP 


> ¥CALL WHEN OPERATING IN TTY INTERRUPT MODE. 
SCKSWR: CMP #SWREG, SWR iis T SOF T-SUR SELECTED 

BNE 15$ - :EXIT IF NOT 

TSTB =: ISTKS iT A CHAR WAITING? 

BPL 3 bide NOT, EXIT 

MOVB STKB, -(SP) 

BIC #46177, (SP) MAKE IT 7-BIT ASCII 

CMP (SP), #? sit IT A CONTROL-G? 

BNE 3 IF NOT, PUT IT IN THE TTY QUEUE 


tt aND EXxiT 


h 
; Vi gt et are ete gee tg ge ag ts 
; ECONTROL IS ae TO THIS POINT FROM EITHER THE TTY oro wy ae: 
S*ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL RESULT OF 
:*CONTROL-G BEING TYPED, AND THE a SWITCH REGISTER BEING SELECTED. 





bs: CMPB - SAUTOB, #1 ARE WE R UNNING IN 
BEQ 2g BRANCH iy 
TST (SP) >:CLEAR CONTROL-G OFF STACK 
JSR PC STKINT FLUSH THE Rot INPUT QUEUE 
CLR astks >:DISABLE TTY KEYBOARD INTERRUPTS 
MOVB #1, SINTAG *:SET INTERRUPT MODE INDICATOR 
TYPE  ,SCNTLG 3 sECHO THE CONTROL-G (?G) 
SGTSWR: TYPE >: TYPE CURRENT CONTENTS 
MOV SWREG, -(SP) ;;SAVE SWREG FOR TYPEOU 
TYPOC . :G0 TYPE--OCTAL ASCH T TALL DIGITS) 
TYPE ,SMNEW >:PROMPT FOR NEW SWR 
19$: CLR ~(SP) CLEAR COUNTE 
CLR -(SP) 35 THE WR 
7S: TSTB = ASTKS “CHAR THERE? 
SPL 7§ ::IF NOT TRY AGAIN 
MOVB asTKB -(SP :;PICK UP CHAR 
BIC C177, (SP >:MAKE IT 7-BIT ASCII 
CMP (SP), #3 31S IT A CONTROL-C? 
BNE 95 Tope IF NOT 
TYPE SCNTLC “YES ECHO. CONTROL ~C (10) 
ADD 6, SP *CLEAN UP STACK 
cMPB SIATAG, #1 eae te KEYBOARD INTERRUPTS? 
MOV #100, ISTKS =: ALLOW TTY KEYBOARD INTERRUPTS 
8S: IMP START ::CONTROL-C RESTAR 
9S: CMP (SP), #25 31S IT A CONTROL-U? 
BNE 10$ sr RANCH 
TYPE SCNTLU *YES. ECHO CONTROL-U ¢tU) 
20$: ADD ke. SP *: IGNORE PREVIOUS INPUT 
BR 19$ LET’S TRY IT AGAIN 
10$: CMP (SP),#15 “ 3;IS ITA <CRD? 
BNE 16$ >:BRANCH IF 
TST 4(SP) :YES, IS iT Sue FIRST CHAR? 


APA, AL ALA 4A 
PRET RAY 


a, 


AAPA AMA 
- 


A 
N“ 
= 


SERRSRRER IS IIIA 


PISLPPPLPLLLLLIL 


es 
0-2 0 b= b= 0 O—= 0 B= fb B &— 6 = 2 O = 0 B= BB+ Bs 0 ow pe 


PHP tri tht 
£ 
ee 4 o 
~ 
2 Nae an 
ao are 


Ce ee Oe ed ee ee ee ee ee ee ee eo er ey 


000100 


b0068 


000067 


tnee 
+444, 
anaee 












& 
3 





177776 
001266 





: 

2745 041374 
on 040510 
@ Bie 


— 





137700 


000081 
137656 


pone coonde 


ococo4 
040517 
040514 





NPUT ROU 
8t9 1 + OT HEL IF_YES 
MOV (SP), aSwWR VE_NE’ 
118: noo ap s CLERR OP STACK 
148: Tyre CRLF <CR> BIND 
cp SINTAG, #1 a i ‘aD INTERRUPTS” 
MOV iho, asTKs MY KBD INTERRUPTS 
it: pie 
168: J STYPEC 
4 (SP), 860 Hi i 
T ;; BRANCH F YES 
CMP (SP), #67 see ) 
SGT 18S alle Re 
ist ze { Hii ti etl CHAR 
Q I : BRANCH 
ASL (SP) NO, SH 1 PRESENT 
aS 4 NEW ONES 
178: I 2(SP) >: KEEP OF CHAR 
BIS -2(SP), (SP) HEL N NEW 
188: YPE 5 33 2<CR> (LF> 
BR SIMULA 
-DSABL LSB 


; btidittisdbicttititeiietititisie ties eee tise terres 
tiTHIS ROUTINE WILL INPUT A SINGLE CHARACTER THE TTY 


tf * ROCHR GET A. CHARACTER FROM THE QUEUE 
# RETURN HERE $  CRARAC ett TACK 
rie > 3WITH T STAI OFF 
SROCHR: MOV (SP), =(SP) PC 

MOV 4(SP},2(SP) — ae ae 

CLR 4(5P) tie GET READY FOR FOR 8 TSHBRACTER 


CLR ( 3 3PUT 
ny #64S,-(SP) ;;PUT NEW PC ON STTACK 
ot eas. 3;POP NEW PC AND PS 


iS: TST STKCNT ;;WAIT ON A CHARACTER 


Bie Bron HEPEPLESABITE 





I TKQOUT ; 
cre salient F bio AT Gb tl oF THE END? 
HOV TKOSRT, STKGOUT” ; 
3 ae: Rateommenceee!. -Ietieaneltsea 
iTHIS ROUTINE WILL INPUT A STRING FROM THE 
ee pon ;; INPUT A STRING FROM THE T 
i RETURN HERE ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 














s;TERMINATOR WILL BE A BYTE OF ALL O'S 









RKO FORMATTER _ MACYII 27(1006) O3-NOV-76 16:15 PACE 107 
OoRELB Pil 03-AUG-76 bo:09 We INPUT ROU id? 
- 
1 01 IN: MOV R3, -(SP) $3 
tae wate CLR = <i He Re RUBOUT KEY 
1444 at i: MOV eSTTYIN,R3 $s ss 
1 l : CMP SSTTYINS72,R3:: FULL? 
1 191 oS 4§ 3;8R YE 
: : ; RD HR seni uate 2360 TER FROM THE TTY 
i 158 000177 10$ poe ’ 77, 1R3) py A RUBOUT 
1476 P fet ep) 3315 THIS THE FIRST RUBOUT? 
14 i SNE 6 t R IF NO 
ple 1 Osiere 041672 wove 8 $3 A BACK SLASH 
150s 1 (3 1 me mov b-1, (SP) 3;SET THE RUBOUT KEY 
IB 4 : 041674 s ch rr Her Ren EMPTY? 
ieee 111337 O41 Rove (R3), 95 j* SETUP TO TYPEOUT THE DELETED CHAR. 
19 1 1 16 T 33 3360 has 
1 1 BR 2s 33 ANO CHAR. 
ey me 2 ed g CRIP NO 
| $514 41540 1 000134 041672 nove #14,95 + Pe A BACK SLASH 
1 1 0416 T 9g 
| 551 1 1 CLR tsP) CLEAR 
Pel 1 ooo02s 7$ CMPB 4 s«825, (RB) *:1S CHARACTER A CTRL U? 
| ig 1 I BNE 8S 3:BR IF NO 
BG Bisee ipa O77 ae ER 
| } keer oo0022 33 CMPB 0 s«B22, (RB) 231 TER A “tR™? 
1 1011 BNE 33 IF NO 
| 1 10501 (R3) 3 THE CHARACTER 
| Toon ioNNoL pales - SYN tS NPE THE INPUT STRING 
| 161g ; ee $300 BICKUP ANOTHER CHACTER 
i 001266 4§: TYPE SQUES ;3;1YPE A_*?° 
161 BR is >;CLEAR THE BUFFER AND LOOP 
| . : 1 Biers 38 Move «(R398 *:ECHO THE CHARACTER 
Ean rt 1 Ops bis, crae s;CHECK FOR RETURN : 5 
Bs Bure fp Big Sha tea tian TEs 
2eay 1 paubt ase SUPE 33 A LINE FEED 
| { 1 nov + + TORE Bo nn ee 
j i! MOV (ep) 3p) BS At 1 STACK AND PUT ADDRESS OF THE 
1654 O01 goon0s ooon02 MOV 4(SP}_2(SP) +3 FIRST ASCII CHARACTER ON IT 
2229 1 2766 041674 O00004 MOV eSTTYIN, 4(SP) 
16 RTI 3 BG TURN , 
| 554 16 9s: -BYTE 0 235 AGE FOR ASCII CHAR. TO TYPE ; 
bets 1674 TTYIN: ; 2 tine RVE 72 BYTES FOR TTY INPUT 
|. §544 bai foe l 005015 000 HS SASCIZ § /#0/¢15><12> + RORTROL 2B. 
| S645 041773 136 006525 O00012 SCNTLU: .ASCIZ /tU/<15><1e>  ;;CONTROL “U" 








SR Ren MAC - 27(1006) 93-Nov-76. 16:15 PAGE 003 


009 SCNTLG: .HSC 44G/¢15><«12) ;;CONTROL “G” 
: 1 SCH OSile? S$MSWR: .ASC (15)<12>/SWR = / 
16 020127 SMNEW: .ASCIZ / NEW = / 


E 
Ft POWER DOWN AND UP ROUTINES 
ERE EREREERE EAE ELE SERS EE EEE ARE REEL SEES EREEE SEES EE EES EEE SEE EEE 





te Oey OTIS C i,SET FOR FAST UP 
* MOV Sry 3 ad iP I0s 
MOV ,7t ‘ho ON STACK 
MOV RL, - (SP) 33 Ri ON STACK 
MOV »7(SP) : BUR ON STACK 
MOV R3,-(5P) 33PUSH R3 ON STACK 
MOV Ru, - (SP) ; sBUSH R4Y ON STACK 
MOV RS’ -(SP) He RS ON STACK 
MOV aSuR, -(SP) 3;PUSH @SWR ON STACK 
MOV SP,$ +3 SBVE SP 
HOV, ,@PWRVEC’ ;;SET UP VECTOR 
BR 2 3;HANG UP 
gs SESELERLL ELE FLEXAALE LHS ERE LE REF RLELASERL ESSERE RASLERERRESEELF SSE 
“POWER UP ROUTINE 
1 042170 o00024 $PUWRUP: MOV SSILLUP JePURVEC s4SETE FOR FAST DOWN 
ii , past OR ie’ ir rt OOP FOR THE TTY 
1 Basi 1S: the . Hat T FoR THE INC 
rE 137006 MOV 1B) +, aSHR Be ACK INTO aSUR 
1 1 MOV (P+, Re ::POP STACK INTO RS 
1 1 MOV (SP)+°RG 3;POP STACK INTO R4 
1% Ol MOV (SP)+/R3 ::POP STACK INTO R3 
149 1 MOV (5P)+'R2 : POP 
1 1 MOV (SP +R *:POP STACK INTO R 
ite Of oo024 Sy BePURONC oi Poe UP THe POWER DOWN VECTOR 
1 nied 000026 MOV $340 SaPURVE eS a4 
ate] TYPE be REPORT POWER FAILURE 
eiby 2176 SPURMG: gifro SPOWER *;POWER FAIL MESSAGE POINTER 
179 SILLUP: HALT s;THE POWER UP SEQUENCE WAS START! 
1 BR -2 : BEFORE THE POWER DOWN WAS COMP 
174 SAVRE: 0 +t BE THE SP HERE 
2176 15 047520 Oo42527 SPOMER; SASCIZ <15)><12>"POWER” 
2204 lz2 fats 
-SBTTL ROUTINE TO SIZE MEMORY 4 
$ OT gems cated eggs pe secs oy canna oat 
; oO 


: y ISR PC, $SIZE 
* SSLSTAD WILL CONTAIN THE LAST AVAILABLE MEMORY LOCATION 
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l $SIZE: tov BO, -($P) Hey RO oN THe STACK 
Bise9 aise V Ri’ -(5P) HH Ri T 
1 i go9008 HOV GHERRVEC = (SP), #558 PRESENT ERROR VECTOR PS & PC 
Rass38 8 MOV , »:SAVE THE STACK POINTER 
— pS TO THE PRESENT FS OLD PSW AND PC ON STACK 
re tear oo0c0s HOV (SP)#, RERRVECH2 -" oh SNE ont PSW IN a8ERRVEC+E 
isa t20660 1S Wer tecb00, i Fleet fog 
; Tet (Ri)+ +3 CBD T0 Rent EEBRESS 
ooo002 os; fe  i3r pt 
bt ; MOV Beep RESTORE THE STACK 
: p00006 HOV (SP) + BERRVEC#E ;RESTORE ERROR VECTOR 
101 2302 MOV Rl grad ;;LAST ADDRESS 
12601 MOV (SP)+,R1 :RESTORE RI 
O42276 012600 HOY (SP)+, RO > RESTORE RO 
WORD 0 AINS THE LAST ADDRESS 


SEBTTL’ SAVE AND RESTORE RO-RS ROUTINES 
5 ft i. eee 
is ALL: 

; SUPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE: 


*#TOP---( 416) 
3% +2---(+18) 


ms ee ee ee a ee eee NN nn 


RRRIERO RSS SahT ons Som amo TORE Bie MR vON eae tens Gee Seema oR 





3 
# +6---R4 
ti0 
3#+1e---R1 
3; #+1 
2304 SSAVREG: 
10046 MOV RO,-(SP) ;;PUSH RO ON STACK 
10146 MOV R1,-(SP) PUSH R1 ON STACK 
3h 1Gea6 MOV * (SP) : PUSH Re ON TACK 
12 Ol MOV ’-(SP) PUSH STACK 
042314 O10446 MOV RY, -(5P) >:PUSH RY ON STACK 
042316 O10S46 MOV RS, -(SP) ::PUSH RS ON STACK 
166% 000022 MOV (SP) (SB) 33 PS OF HAIN FLOW 
Bisse) pieeae fned Mov «-SSceps’acep» SSeaVE PS OF rar TOM 
042334 Bieeue ene MOV 22(SP),-(SP)  3;SAVE PC OF CALL 
042340 000002 RTI 
s#RESTORE RO-RS 
;#CALL: 
* RESREG 
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SRESREG: 

MOV (SP)+,22(SP) ;;RESTORE PC OF CALL 

MOV (8p}4'55( ep) + Ee TORE PS OF CALL 

MOV (SP)+, 20(5P) j RE TORE PC OF MAIN FLOW 

MOV (SP), (SP)  $:RESTORE PS OF MAIN FLOW 

MOV (SP)+, ss TACK INTO 

my Re aim Ie 

MOV (SP)+; *:POP STACK INTO 3 

MOV (SP)+,R1 ;;POP STACK INTO Ri 
(SP)+)RO ::POP STACK INTO 


ERESLERESECSKERSSPAHEL ESSE LE RSS SHELA SH MEPL HS ESEREL EVA EEX RSLEESS 
jitats JRQUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAP™ INSTRUCTION 


; ober NOEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRE 
; SIRED ROUTINE. USING THE ADDRESS OBTAINED IT WILL 
;#GO TO THAT ROUTINE. 
STRAP: MOV RO, -(SP) 3; SAVE _RO 

MOV 2(SP),RO Hod TRAP ADDRESS 

TST -(RO) BY 2 

MOVB (RO) ,RO 33GET RIGHT BYTE OF TRAP 

ASL RO i POSITION FOR INDEXING 

MOV ELROD) AO ; INDEX TO TABLE 

RTS 2360 O ROUTINE 


3;THTS IS USE TO HANDLE THE “GETPRI™ MACRO 
STRAP2: MOV (SP), -(SP) PC DOWN 
MOV 4(SP),2(SP) tinove THE PSW 
I :;RESTORE THE PSW 
.SBTTL TRAP TABLE 
seTMI CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
Y Fae TRAP Fon. 


INSTRUCT 
; ROUTINE 
: SPE alts TRAP+1(104401) TTY QUT ROUTINE 
$1 ji CALL STYPOG TRAP+ Uowce) TSCTAL NUMBER (WITH LEADING ZER 
T *:CALL= TRAP+3(1 ) TYPE OCTAL NUMBER (NO LEADING ZEROS 
STYPON ;;CALL=TYPON  TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL 
SGTSWR ;;CALL=GTSWR § TRAP+S(10440S) GET SOFT-SWR SETTING 
. =CKSUR ( ) TEST FOR CHANGE IN 
Hate >;CALL=RDC TRAP ) 1 TYPEIN CHARAC INE 
SROLIN jsCALLEROLIN TRAP #10( 194410) tT Y TYPEIN STRING ROUTINE 
Sreenee He =p TRAP+12( 104412) Beet 
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EM16: .ASCIZ 
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-ASCIZ 
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WRITE LOCK ERROR/ 
DRIVE UNSAFE ERROR/ 


SEEK INCOMPLETE ERROR/ 
CYLINDER OVERFLOW ERROR/ 
ILLEGAL CYLINDER ADDRESS ERROR/ 
ORIVE OFF TRACK/ 

DRIVE TIMING ERROR/ 


DATA LATE ERROR/ 


CONTROLLER TIMEOUT ERROR/ 


OPERATION INCOMPLETE ERROR/ 


HEADER VRC ERROR/ 





DATA CHECK ERROR/ 
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/%% HEADER COMPARE ERROR/ 
ERROR IN RECALIBRATE FOR RECOVERY/ 


/%% SUBSYSTEM TIMEOUT/ 
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“HEADER OF SECTOR O THIS CYLINDER 1S:/ 


“SEARCHING FOR HEADEP: / 


/PACK ADDRESS OF ERROR IS:/ 





/CYLNDR TRACK SECTOR/ 


/CYLNDR TRACK/ 


ZECC DATA IS:/ 


/WORDL WORD2 WORD3/ 







/GO0D = BAD WORD NUM/ 


/BAD HEADER IS:/ 


/RKDS RKER RKMR2 RKMR3/ 





ZERROR TRYING TO GET FAILURE INFORMATION/ 
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